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Resumen/Abstract 


DISENO BAJO NORMA TEMA DE INTERCAMBIADORES TUBO-CARCASA 



RESUMEN 


El Proyecto fin de carrera aborda la problematica en el diseno de intercambiadores de 
calor tubo-carcasa, al ser un proceso iterativo y muy costoso. Se presenta un medio 
alternativo a los software profesionales, para el calculo de intercambiadores de calor. 

La problematica se resuelve mediante la creacion de una aplicacion en Matlab que 
permite la obtencion de un area factible, en una grafica de la perdida de carga en el 
intercambiador, en la que se encuentran todos los intercambiadores que cumplen las 
restricciones especificadas. Una vez delimitada el area, se puede calcular el 
intercambiador de rmnimo coste que cumple las restricciones. 

Se describen los componentes principals de los intercambiadores de calor, los 
parametros de diseno y el procedimiento de calculo. 

La resolucion del intercambiador se basa en el metodo de Bell-Delaware, que permite 
obtener una mejor solucion que el metodo de Kern, utilizado antiguamente. Consiste en 
un proceso iterativo para la obtencion de cada uno de los puntos que forman las curvas, 
que serviran para delimitar el area factible. 

La aplicacion de Matlab desarrollada permite obtener las caracteristicas del 
intercambiador de rmnimo coste total anualizado que cumple los requisitos 
demandados por el usuario y la normativa TEMA, asi como realizar analisis de la 
influencia de diversos parametros en el coste. 


Palabras clave: intercambiador de calor, metodo Bell-Delaware, tubo-carcasa, area 
factible, rmnimo coste, coste total anualizado, TAC, Matlab, TEMA. 
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ABSTRACT 


This Thesis looks into the difficulties of shell and tube heat exchangers design, being this 
an iterative and hard process. An alternative to professional software is presented for 
the calculation of heat exchangers. 

This problem is solved by creating a Matlab application that allows obtaining a feasible 
region, on a pressure-drop diagram, where all the heat exchangers that meet the 
specified restrictions are. Once the region is delimited, minimum cost heat exchanger 
which meets the constraints can be calculated. 

The main components of heat exchangers, design parameters and calculation procedure 
are going to be described. 

The heat exchanger solution is based on the Bell-Delaware method, which allows to get 
a better solution than the Kern method, which was used in the past. It is an iterative 
process for obtaining each point that will form the curves which will define the feasible 
region. 

The developed Matlab application allows getting the minimum total annualized cost 
heat exchanger which meets the demanded by user requirements and the TEMA 
regulations, specifications, so as analyzing the influence on the cost of several 
parameters. 


Keywords: heat exchanger, Bell-Delaware method, shell and tube, feasible region, 
minimum cost, total annualized cost, TAC, Matlab, TEMA. 
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1.1 INTRODUCCION 

La motivacion principal del proyecto es la creacion de una aplicacion que facilite el 
calculo de intercambiadores de calor tubo-carcasa, al ser un proceso iterativo y costoso. 
Presentando una alternativa a los software comerciales existentes. 

Se trata de una aplicacion de Matlab que se utiliza para obtener la denominada area 
factible, en la que se encuentran todos los intercambiadores que cumplen los 
requerimientos especificados por el usuario asi como la normativa de la "Tubular 
Exchanger Manufacturers Association" o TEMA, y a partir de la misma, la obtencion del 
intercambiador de minimo coste total anualizado o TAC. 

Esta aplicacion esta limitada para el calculo de carcasas tipo TEMA E, que son las mas 
utilizadas. Consisten en un solo paso por la carcasa, con la entrada y salida del fluido de 
la carcasa en extremos opuestos del intercambiador. El proceso de calculo se basara en 
el metodo de Bell-Delaware, ya que el resultado se aproxima mas a la realidad que el 
metodo de Kern, utilizado antiguamente. 

1.2 OBJETIVOS 

El objetivo principal es el desarrollo de una aplicacion en Matlab que sea capaz de 
resolver los problemas de dimensionado para intercambiadores tubo-carcasa tipo TEMA 
E. 

La aplicacion debe ser capaz de obtener las caracteristicas del intercambiador de 
minimo coste que cumple con los requerimientos solicitados por el usuario y con la 
normativa TEMA, si es que lo hubiera. 

1.3 ESTRUCTURA DE LA MEMORIA 

1 Introduction 

Breve resumen del proyecto y los objetivos del mismo. 

2 Intercambiadores de calor 

Explicacion de los diferentes tipos de intercambiadores de calor y sus caracteristicas en 
funcion de diversas propiedades. 

3 Seleccion de intercambiadores 

Se explican ampliamente los criterios que se han de tener en cuenta a la hora de la 
eleccion de un intercambiador de calor u otro segun la aplicacion a la que esta destinado 
y los distintos requerimientos termicos y mecanicos. 
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4 Intercambiadores de calor tubo-carcasa 

Descripcion en detalle de los intercambiadores de calor tubo-carcasa, explicando sus 
diferentes componentes y caracteristicas. 

5 Diseno 

Se describen los distintos parametros que hay que tener en cuenta en el diseno de los 
intercambiadores de calor tubo-carcasa, asi como las diferentes ecuaciones que rigen la 
transferencia de calor y la perdida de carga en su interior segun el metodo de Bell- 
Delaware. 

6 Aplicacion de Matlab 

Descripcion detallada del procedimiento seguido por la aplicacion de Matlab para el 
calculo de intercambiadores de calor tubo-carcasa. 

7 Analisis 

Utilizacion de la aplicacion a modo de ejemplo, para comprobar la influencia del 
ensuciamiento o fouling en el coste y dimensiones de un intercambiador tubo carcasa. 

8 Codigo de las aplicaciones de Matlab 
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Los intercambiadores de calor son dispositivos utilizados para la transferencia de 
energia interna termica disponible entre dos o mas fluidos a diferente temperatura. 
En la mayoria de los intercambiadores, los fluidos estan separados por una superficie 
conductora de calor y no se mezclan. 

Se utilizan para multitud de procesos en diversas industrias (recuperacion de calor, 
procesado de petroleo, transporte, aire acondicionado, refrigeracion, generacion de 
energia y otras) asi como en aplicaciones comunes (radiadores de automoviles, 
condensadores, evaporadores...). 

Existen diferentes tipos de intercambiadores, cada uno con sus ventajas e 
inconvenientes, lo que implica que algunos son mas indicados para unas determinadas 
condiciones de operacion que otros. 

Los intercambiadores de calor se pueden clasificar en distintos grupos, en funcion de su 
construccion, el modo de transferencia de calor, la compactacion del intercambiador, la 
disposicion de los fluidos, el numero de pasos, la fase de los fluidos o el mecanismo de 
transferencia de calor. 

2.1 Clasificacion segun su construccion 

Segun la geometria y el modo en el que los intercambiadores estan construidos, se 
pueden identificar distintos tipos. 

2.1.1 Intercambiadores de tubo 

2.1.1.1 Intercambiadores de doble tubo 

Estan formados por dos tubos concentricos, normalmente con un diseno en forma de U. 
Los fluidos discurren en contracorriente puro. Se pueden conectar en serie o en paralelo 
segun las necesidades, lo que permite una alta flexibilidad en su diseno. 
Se suelen utilizar para fluidos a alta presion (hasta 14000 psi) o temperatura (hasta 600 
^C), asi como en fluidos con alto fouling. Presentan un area de intercambio de calor 
pequena respecto al volumen ocupado. 
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Figura 1. Intercambiador de calor de doble tubo. 

2.1.1.2 Intercambiadores de tubo-carcasa 

Son el tipo de intercambiador mas utilizado, se utilizan en diversas aplicaciones tales 
como enfriamiento de aceite, feed water heater (precalentador de agua en las 
centrales), condensadores... 

Se componen principalmente de carcasa, tubos, baffles (deflectores) y cabezales 
anterior y posterior. 

Proporcionan flujos de calor elevados en relacion con su peso y volumen, es facil de 
construir en una gran variedad de tamanos y es bastante facil de limpiar y reparar. 
Ademas es versatil, y puede ser disenado para cumplir practicamente con cualquier 
aplicacion. 
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Figura 2. Intercambiador de calor tubo-carcasa. 

Segun la forma que presenten los tubos y su disposicion se pueden diferenciar 3 tipos 
principales: 

- De cabezal flotante 

- Tubos en forma de U 

- De cabezal fijo 

Los intercambiadores tubo-carcasa seran explicados ampliamente mas adelante. 

2.1.2 Intercambiadores de placas 
2.1.2.1 Placas (PHE) 

En este tipo de intercambiadores, las corrientes de los fluidos estan separadas por 
placas, que son laminas delgadas, rectangulares, con un diseno corrugado para facilitar 
la transferencia de calor. Los fluidos circulan paralelamente a las placas alternandose 
fluido caliente y fluido frio, de modo que a un lado de cada placa siempre circule el fluido 
frio y por el otro el caliente, ademas circulan en contracorriente puro al discurrir de 
manera vertical entre las placas. Las placas se encuentran empaquetadas de modo que 
permanezcan unidas y se sellen los canales por los que circulan los fluidos. Existen 
aberturas en las 4 esquinas de las placas, que permiten la comunicacion entre las 
distintas placas y las corrientes de entrada y salida al intercambiador. 

Las placas son corrugadas con el fin de aumentar el area superficial efectiva y provocar 
turbulencia en el fluido lo que permite obtener altos coeficientes de transferencia de 
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calor, aun a bajas velocidades y con moderadas cafdas de presion. Las corrugaciones 
tambien incrementan la resistencia mecanica de las placas y favorecen su soporte 
mutuo. 



Figura 3. Intercambiador de calor de placas. 

Los intercambiadores de placas presentan alta transferencia de calor y son compactos, 
presentando una gran area de contacto respecto al volumen ocupado. Ademas son 
propicios para fluidos con alta viscosidad, al presentar mayor facilidad para crear 
turbulencia en el fluido pero tienen que trabajar a bajas presiones. 

2.1.2.2 Intercambiadores en espiral (SHE) 

Consisten en un par de laminas enrolladas alrededor de un eje formando pasajes 
paralelos en espiral por entre los cuales fluye cada sustancia. Los canales que se forman 
en la espiral se encuentran cerrados en los extremos para que los fluidos no se mezclen. 
Al fluir entre curvas se induce turbulencia en el fluido, lo que mejora la transferencia de 
calory reduce el fouling. Estos equipos son muy utilizados para fluidos viscosos (de hasta 
500000 cP), lodos y liquidos con solidos en suspension, asi como en operaciones de 
condensacion y vaporizacion. 
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Figura 4. Intercambiador de calor de placas en espiral. 

Entre sus caracteristicas principales destacan que se emplean con flujo en 
contracorriente puro, no presentan problemas de dilatacion diferencial, son compactos 
y pueden emplearse para intercambiar calor entre dos o mas fluidos a la vez. 

2.1.2.3 Intercambiadores de placas con serpentm 

Conocidos como panel coils o plate coils. Son relativamente baratos y se pueden 
construir en cualquier forma y grosor deseados. Consiste en una serie de placas con 
serpentines en su interior, por los que circula uno de los fluidos, que se encuentran 
sumergidas en un tanque en el que se encuentra el otro fluido. Las placas se construyen 
normalmente mediante soldadura. 

Las principales ventajas que presentan son que se puede hacer circular cualquiertipo de 
fluido, el control de la velocidad, temperatura y transferencia de calor es preciso y no 
aparecen problemas en cuanto al mantenimiento, la limpieza o la contaminacion de los 
fluidos. 
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Figura 5. Intercambiador de calor de placas con serpentln. 

Se utilizan en diversas aplicaciones industriales como en criogenia, procesos 
alimentarios o farmaceuticos, procesos qufmicos y otros. 

2.1.2.4 Intercambiadores Lamella 

Es un tipo de intercambiador soldado que combina la estructura del PHE con los 
intercambiadores tubo-carcasa sin baffles. En este diseno, los tubos son reemplazados 
por pares de placas finas paralelas con ancho variable, lo que produce largos y estrechos 
canales. El conjunto de placas se introduce en una carcasa similar a la de los 
intercambiadores tubo-carcasa y solo se fija uno de los extremos para permitir la 
dilatacion y contraccion termica. Ademas al no existir baffles la perdida de carga es 
menor. Presenta una alta turbulencia y puede operar a altas presiones. 
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Figura 6. Intercambiador de calor Lamella. 

Se utilizan solamente en casos especiales y el diseno lo realizan los proveedores. 

2.1.3 Intercambiadores con aletas 

En intercambiadores de calor con gases o algunos liquidos, si el coeficiente de 
transferencia de calor es demasiado bajo, es necesaria un area de intercambio de calor 
mayor para aumentar dicha transferencia. Esto se consigue mediante la adicion de 
aletas a la superficie primaria. 

Aqui se muestra un ejemplo de un intercambiador de placas con aletas. 



Figura 7. Intercambiador de calor de placas con aletas. 
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2.1.4 Intercambiadores regenerativos 

Son un tipo de intercambiadores de calor donde el calor se almacena de forma 
intermitente en un medio de almacenamiento termico tras hacer circular el fluido 
caliente por su interior, normalmente laminas de metal, para despues hacer circular el 
fluido frio de modo que este pueda absorber el calor. Se pueden clasificar en 
regeneradores fijos y rotativos. 

En los regeneradores fijos, los fluidos frio y caliente se alternan de modo que primero 
circula el fluido caliente y despues el frio de modo ciclico. En los regeneradores rotativos, 
ambos fluidos circulan continuamente mientras que es el regenerador el que gira (a 
baja velocidad en comparacion con la de los fluidos), funcionando con el mismo principio 
que los regeneradores fijos. 


Intake air 


Exhaust air 



Supply air 


Extract air 


Figura 8. Diagrama de un intercambiador de calor regenerativo. 

Se utilizan principalmente en las centrales con turbina de gas, donde el calor de los gases 
de escape es utilizado para aumentar la temperatura del aire comprimido antes de 
introducirlo en la camara de combustion. 
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2.2 Clasificacion segun el modo de transferencia de calor 

2.2.1 Intercambiadores de contacto indirecto 

En este tipo de intercambiadores, las corrientes permanecen separadas y la 
transferencia de calor se produce a traves de un muro impermeable. Se pueden clasificar 
en de transferencia directa, de almacenamiento y de lecho fluidizado. Entre los 
intercambiadores de transferencia directa se pueden encontrar los intercambiadores 
tubulares, los intercambiadores tubo-carcasa o los intercambiadores de placas. 

2.2.2 Intercambiadores de contacto directo 

En los intercambiadores de contacto directo, los dos fluidos no estan separados, por lo 
que se mezclan, intercambian calor y despues son separados. 
Debido a la ausencia de separacion, se consigue una mayor aproximacion de las 
temperaturas. Muy a menudo, en los intercambiadores de contacto directo, la 
transferencia de calor va tambien acompanada de una transferencia de masa. Entre los 
intercambiadores de contacto directo se encuentran los intercambiadores de fluidos 
inmiscibles, los intercambiadores liquido-gas y los intercambiadores liquido-vapor. Las 
torres de enfriamiento son un ejemplo de intercambiadores de contacto directo. 
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»AGUA FR1A 


Figura 9. Diagrama de una torre de refrigeration. 

2.3 Gasification segun la compactacion 

Los intercambiadores compactos son necesarios para aplicaciones en las que hay 
limitaciones en el peso o el tamano de los intercambiadores. Los intercambiadores 
compactos tienen una densidad de superficie alta, (3, de 700 m 2 /m 3 y mayores. Los 
intercambiadores de calor compactos utilizan una superficie compacta para uno o mas 
fluidos. Permiten obtener efectividades termicas mayores que los intercambiadores 
tubo-carcasa (de hasta un 95% en comparacion con los tipicos 60%-80% de los STHEs). 
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Figura 10. Intercambiador de calor compacto. 

Presentan diversas ventajas: 

-Ocupan poco espacio en su almacenamiento 
-Menor peso 
-Transporte mas facil 
-Menor requerimiento de cimientos 
-Mejor control de temperatura 

Sin embargo tambien presentan algunos inconvenientes: 

-No existen estandares similares a los de las vasijas de contencion de presion, 
aunque se estan empezando a crearlos para intercambiadores refrigerados por aire 
y de placas aleteadas. 

-Al ser conductos estrechos son susceptibles al fouling y no se pueden limpiar de 
manera mecanica, lo que limita los fluidos con los que pueden trabajar. 
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2.4 Gasification segun la disposition de los fluidos 

2.4.1 Flujo en paralelo 

En este tipo, ambos fluidos entran al intercambiador por el mismo extremo, fluyen en el 
mismo sentido y salen por el otro extremo. Termodinamicamente es una de las 
disposiciones mas pobres, sin embargo, se emplea en algunos casos: cuando los 
materiales son muy sensibles a la temperatura, ya que la temperatura es mas uniforme; 
cuando se desea mantener la misma efectividad del intercambiador sobre un amplio 
intervalo de flujo; cuando existe la posibilidad de que la temperatura del fluido caliente 
alcance su temperatura de solidificacion y en procesos de ebullicion, ya que favorece el 
inicio de la nucleacion. 

2.4.2 Flujo en contracorriente 

En este tipo, ambos fluidos fluyen en paralelo pero en sentidos opuestos. Es el metodo 
mas eficiente para las disposiciones de un solo paso. En ciertos tipos de 
intercambiadores, el flujo contracorriente no es facil de conseguir, debido a dificultades 
en la fabricacion relacionadas con la separacion de los fluidos en los extremos y el diseno 
de las entradas y salidas es complejo [1], 


r. - r 



Flow length 


Figura 11. Disposition deflujos en contracorriente. 

2.4.3 Flujo cruzado 

En este tipo, los fluidos fluyen perpendicularmente entre el los. Se pueden distinguir 
diferentes combinaciones para flujo cruzado en intercambiadores de un solo paso: 

-Ambos fluidos sin mezclar 

-Un fluido sin mezclar y el otro mezclado 

-Los dos fluidos sin mezclar 
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Una corriente se considera "no mezclada" cuando pasa a traves de un conducto sin 
mezclarse con las corrientes adyacentes del mismo fluido, mientras que "mezclada" 
implica que dicho fluido discurre por un unico conducto. 
Como ejemplo de disposicion de flujo cruzado de ambos fluidos sin mezclar se 
encuentran los intercambiadores de placas aleteados, mientras que un ejemplo de 
fluido sin mezclar con otro mezclado puede encontrarse en los intercambiadores tubo 
carcasa de un solo paso, en los que el fluido que discurre por el interior de los tubos es 
no mezclado y el que circula por la carcasa es mezclado. 


'c,i 



temperature 

distribution 

Figura 12. Disposicion deflujos cruzado, no mezciado-no mezclado. 

2.5 Clasificacion segun el numero de pasos 

Se pueden clasificar en un solo paso o paso multiple. Se considera que un fluido tiene 
un solo paso si fluye a traves del intercambiador su longitud total una sola vez. Es de 
paso multiple si el fluido vuelve a pasar a traves del intercambiador dos o mas veces. 

Es necesaria la realizacion de mas de un paso cuando el diseno requerido para un 
intercambiador de un solo paso con esos requerimientos resulta en un intercambiador 
demasiado largo, bajas velocidades de paso o una baja eficiencia. Segun se incrementa 
el numero de pasos, la disposicion de los flujos se asemeja mas a la de contraflujo puro. 
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a) b) 

Figura 13. Intercambiadores tubo-carcasa: 2 pasos por tubo-1 paso por carcasa (a) y 4 pasos por 
tubo-2 pasos por carcasa (b). 

2.6 Clasificacion segun la fase de los fluidos 
2.6.1 Liquido-gas 

Los intercambiadores liquido-gas son principalmente intercambiadores de calor de 
tubos aleteados con liquido en los tubos. 

Los radiadores son los mas intercambiadores principals de tipo liquido-gas que se 
encargan de enfriar el agua de refrigeracion de los motores refrigerados por agua. 
Tambien se utilizan en enfriadores de aceite de aeronaves, intercoolers y aftercoolers de 
compresores y condensadores y evaporadores de aires acondicionados. Normalmente 
el liquido es bombeado por los tubos con un alto coeficiente de conveccion, mientras 
que el aire fluye por el exterior con un coeficiente de conveccion menor. Se suelen 
utilizar aletas en la zona de los tubos por la que circula el gas, para aumentar el 
coeficiente de transferencia de calor. 



Figura 14. Intercooler aire-agua. 
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2.6.2 Liquido-liquido 

La mayoria de los intercambiadores liquido-liquido son intercambiadores tubo-carcasa 
e intercambiadores de placas (PHE). Ambos fluidos son bombeados por el 
intercambiador por lo que el mecanismo principal de transferencia de calor es 
conveccion forzada. La densidad de los liquidos permite un alto coeficiente convectivo 
por lo que normalmente no es necesario el uso de aletas u otros dispositivos para 
aumentarlo. En algunas aplicaciones si que se utilizan tubos aleteados o microaleteados 
para mejorar el coeficiente de transferencia de calor. 

2.6.3 Gas-gas 

Los intercambiadores gas-gas se encuentran principalmente en precalentadores 
recuperadores, regeneradores rotativos, intercoolers y aftercoolers. En muchos casos, 
uno de los gases es comprimido para aumentar la densidad mientras que el otro se 
mantiene a baja presion y densidad. El tamano de los intercambiadores gas-gas es 
mucho mayor que el de los liquido-liquido debido a la diferencia de densidades y por 
tanto de coeficientes de conveccion. 





Figura 15. Intercooler aire-aire. 
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2.7 CLASIFICACION EN FUNCION DEL MECANISMO DE TRANSFERENCIA 
DE CALOR 

Los mecanismos principal de transferencia de calor de un fluido a otro utilizados son: la 
conveccion en una sola fase, natural o forzada, la conveccion natural o forzada en dos 
fases (condensacion y evaporacion) y combinacion de conveccion y radiacion. 
Cualquiera de estos mecanismos se puede dar individualmente o combinados en 
cualquiera de los fluidos del intercambiador. 

Los intercambiadores basados en cambio de fase de los fluidos se pueden clasificar en 
condensadores y evaporadores. 

2.7.1 Condensadores 

Los condensadores pueden ser refrigerados tanto por liquido (agua) o gas (aire). 
Normalmente, en los condensadores refrigerados por agua, el fluido a condensar circula 
por el exterior de los tubos, mientras que en los refrigerados por aire el fluido a 
condensar circula por el interior de los tubos. Normalmente se utilizan aletas para el 
lado del intercambiador por el que circula el gas. 


BAFFLE AND TUBE 



Figura 16. Condensador gas-1 iquido. 

2.7.2 Evaporadores 

Este grupo de intercambiadores se pueden subdividir en dos clases: calderas (fired 
systems) y unfired systems. 
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Calderas: son los intercambiadores que utilizan productos de la combustion a muy alta 
temperatura pero a presion atmosferica para generar vapor. Pueden ser acuotubulares 
(en las que el agua circula por el interior de los tubos) o pirotubulares (en las que los 
gases de escape circulan por el interior de los tubos). 



1 CUtHPO CALDERA 

2 TU0O HOGAR 

3 MAZ TUBULAR 2* PASO 

4 HAZ TUBULAR 3* PASO 

5 CAMARA TRASS RA HOGAR REFRIGE RADA 


6 CAJA OELAN1ERA 

7 CAJA TRASERA 

8 BANCADA 

9 AISLAMENTD 

10 EOUPO COMBUSTION 


11 VALVULA SAUOA VAPOR 

12 VALVULAS OESEGURIOAO 

13 BOCA INSPECCON LATERAL 

14 VALVULA VAQAOO 


Figura 17. Caldera pirotubular. 

Unfired systems: en este grupo se encuentran una gran variedad de vaporizadores, 
desde vaporizadores de alta temperatura nucleares hasta gasificadores de muy baja 
temperatura criogenicos. Se utilizan en muchos procesos de la industria alimentaria. 
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3. SELECCION DE 
INTERCAMBIADORES 
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Existen diversas alternatives a la hora de elegir un intercambiador de calor, pero solo 
uno de ellos es el mejor para cada conjunto de condiciones. 

Es necesario considerar las distintas solicitaciones a las que se vera sometido en su 
funcionamiento, asi como la eficiencia termica deseada o las propiedades de los fluidos 
que se van a utilizar. 

3.1 CRITERIOS DE SELECCION 

Existen muchos criterios de seleccion, pero los principales son el tipo de fluido que se va 
a utilizar, las presiones y temperaturas de funcionamiento, la potencia termica y el 
coste. Los fluidos involucrados en transferencia de calor pueden ser caracterizados por 
temperatura, presion, fase, propiedades fisicas, toxicidad, corrosividad y la tendencia al 
ensuciamiento (fouling). 

Las condiciones de funcionamiento para intercambiadores de calor pueden variar en un 
amplio rango y una gran cantidad de requerimientos son impuestos para su diseno. 

Se deben considerar los siguientes aspectos cuando se selecciona un intercambiador: 

-Materiales de fabricacion 

-Presion y temperatura de funcionamiento y el programa de temperaturas. 
-Caudales masicos de los flujos 
-Disposicion de los flujos 

-Parametros de rendimiento (eficiencia termica y perdida de carga) 

-Tendencias a producir ensuciamiento (fouling). 

-Tipos y fases de los fluidos 

-Requerimientos de mantenimiento, inspeccion, limpieza, ampliacion y reparacion. 

-Coste economico 

-Tecnologias de fabricacion 

-Modo de montaje (vertical u horizontal) 

-Uso para el que esta destinado 


3.1.1 Materiales de fabricacion 

Los materiales de fabricacion del intercambiador y el recipiente de presion deben ser 
los apropiados para soportar la corrosion. Ademas, debe ser lo suficientemente 
resistente para soportar las temperaturas y presiones de trabajo. Los intercambiadores 
tubo-carcasa pueden ser fabricados en practicamente cualquier material que sea 
necesario para evitar la corrosion, tanto no metales como vidrio. Teflon o grafito como 
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metales raros (titanio, zirconio, tantalio...). Los intercambiadores compactos con aletas 
normalmente son fabricados de metales con alta maleabilidad, mientras que los 
intercambiadores de placas requieren de materiales prensables o soldables. 



Figura 18. Intercambiador de color de vidrio. 

3.1.2 Presion y temperatura de funcionamiento 

3.1.2.1 Presion 

La presion de diseno es importante para determinar el grosor de la vasija de contencion 
de la presion. Cuanto mayor es, mas gruesa tendra que ser esta y mayor ventaja 
presentara hacer circular al fluido de mayor presion por los tubos. 

Las presiones de funcionamiento en los intercambiadores de placas (PHEs y SPHEs) estan 
limitadas, debido a la dificultad de prensar placas del grosor necesario y a los materiales 
de las juntas en el caso de los PHEs. En los intercambiadores de tubo y carcasa con 
cabeza flotante y tubos con forma de U y en los intercambiadores de placas Lamella la 
presion de operacion tambien esta limitada. 

3.1.2.2 Temperatura 

Temperatura de diseno: este parametro es importante ya que indica si el material 
soporta la temperatura de funcionamiento y las cargas termicas a las que sera sometido 
el intercambiador. Para aplicaciones de baja temperatura y criogenicas debe presentar 
una alta tenacidad o resiliencia mientras que para aplicaciones de alta temperatura, el 
material debe presentar una alta resistencia a fluencia. 
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Programa de temperaturas: de este depende la temperatura media de muchos 
componentes en intercambiadores tubo-carcasa (STHE) como la carcasa, el haz de tubos 
y los tubesheet. 

Potencial termico: es la medida del potencial de transferencia de calor real que existe 
con las condiciones de diseno. Para ello se utiliza la diferencia de temperatura media 
logaritmica (LMTD). En los intercambiadores en los que el flujo no es contracorriente 
puro es necesaria la utilizacion de un factor de correccion, F. Se puede obtener 
analiticamente y mediante graficas dependientes de la eficiencia termica P y de la 
relacion de capacidades calorificas R. 



Figura 19. Simulation de las temperaturas en el interior de un intercambiador tubo-carcasa. 

Los intercambiadores tubo-carcasa pueden ser disenados para casi cualquier 
combinacion de presion y temperatura. En algunos casos extremos, la alta presion 
puede ser una limitacion a la hora de su fabricacion debido al grosor del material y el 
peso del intercambiador final. 

Los intercambiadores compactos se construyen con materiales mas finos mediante 
soldadura, pegado... por lo que estan limitados en temperatura y presion de trabajo. 
Los intercambiadores de placas y espiral sellados estan limitados en presion y 
temperatura tambien, debido a la capacidad de las juntas y sellos. 
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3.1.3 Flujo masico 

De la cantidad de flujo depende el area de paso necesaria. Es necesario aumentar el area 
para reducir la velocidad del flujo, dado que esta limitada por la perdida de carga, 
erosion... Ademas es necesaria en muchas ocasiones la imposicion de una velocidad 
minima para evitar la aparicion de zonas estancas y minimizar el fouling. 

3.1.4 Disposicion de los flujos 

La eleccion de una u otra disposicion dependera de la eficiencia del intercambiador 
necesaria, el tipo de intercambiador y otros parametros de diseno. 

3.1.5 Parametros de rendimiento 

Eficiencia termica: si es necesaria una alta eficiencia termica, se utilizan regeneradores 
o intercambiadores de placas soldadas, mientras que para eficiencias termicas bajas se 
utilizan intercambiadores tubo-carcasa. 

Perdida de carga: la perdida de carga puede estar limitada tanto por las bombas como 
limitaciones en el proceso. Los intercambiadores son disenados para reducir la perdida 
de carga todo lo necesario, ya que reduce el coste. 

3.1.6 Tendencia al fouling 

El fouling es la formacion de depositos no deseada en la superficie de intercambio de 
calor empeorando el coeficiente de intercambio de calor y aumentando la resistencia al 
paso del fluido, lo que conlleva un aumento de la perdida de carga. Para compensar el 
fouling, es necesario aumentar la superficie de intercambio de calor, ya que esta 
disminuira paulatinamente debido al fouling. En los intercambiadores tubo-carcasa, el 
fluido con mayor tendencia al fouling ira por los tubos, ya que son mas faciles de limpiar. 
Los intercambiadores compactos no se utilizan con fluidos con tendencia al fouling. 
Mientras que los intercambiadores de placas en espiral son idoneos para los fluidos con 
alto fouling, dado que la propia turbulencia generada en el fluido minimiza el fouling. 
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Figura 20. Haz de tubos desmontado, en el que se puede apreciarfouling. 

3.1.7 Tipos y fases de los fluidos 

Los fluidos liquidos presentan menos problemas al contar con una mayor densidad y 
mayor facilidad para el transpose, lo que mejora los coeficientes de transferencia de 
calor sin producirse una gran perdida de carga [2], 

3.1.8 Requerimientos de mantenimiento, inspeccion, limpieza, ampliacion y 
reparacion. 

Es necesario tener en cuenta la accesibilidad de cada intercambiador para su limpieza, 
su ampliacion o reparacion y el mantenimiento. Los intercambiadores tubo-carcasa se 
pueden construir con un amplio rango de variaciones para facilitar su limpieza, ademas 
otros intercambiadores como los Lamella o los intercambiadores de placas soldadas son 
faciles de abrir. 

Las reparaciones de algunos componentes de los intercambiadores tubo-carcasa son 
sencillas, mientras que algunas partes, como la junta de expansion, pueden ser muy 
complicadas de reparar, ademas su ampliacion en muchos casos es imposible. Los 
intercambiadores de placas son faciles de reparar y son facilmente ampliables tambien. 
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3.1.9 Coste economico 

Hay que tener en cuenta dos costes principales, el coste de fabricacion, y los costes de 
operacion, que incluyen los costes de mantenimiento. En general, cuanto menor es la 
superficie de intercambio y menor es la complejidad del diseno menor es el coste de 
fabricacion. El coste de operacion se debe al coste del bombeo, vease bombas, 
compresores o ventiladores. Los costes de mantenimiento dependen principalmente de 
la corrosion y el fouling. 

3.1.10 Tecnologfas de fabricacion 

Son uno de los factores principales en la seleccion de un intercambiador. Son el coste 
principal en la fabricacion asi como en el mantenimiento y reparacion [3]. 

3.1.11 Uso para el que esta destinado 

Segun la aplicacion para la que este destinada es preferible el uso de unos tipos de 
intercambiador determinados. Se presenta una tabla en la que aparecen los mas 
importantes. 
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Choice of Heat Exchanger Type for Intended Applications 


Application 

Low-viscosity fluids 

Remarks 

For high temperature/pressures. use STHE or double-pipe heat exchanger Use 
PHE or LHE for low temperature/pressure applications. 

Low-viscosity liquid to steam 

Medium-viscosity fluids 

High-viscosity fluids 

Use STHE in carbon steel. 

Use PHE or with high solids content, use SPHE. 

PHE offers the advantages of good flow distribution. For extreme viscosities, 
the SPHE is preferred. 

Fouling liquids 

Use STHE with removable tube bundle. SPHE or PHE is preferred due to 
good flow distribution. Use PHE if easy access is of importance. Also 
consider Philips RODbaffle heat exchanger. TWISTED TUBE* heal 
exchanger and Helixchanger® heat exchanger, and EMbaffle* heat exchanger 
to improve flow velocity on the shcllsidc. enhance heat transfer performance, 
and reduce fouling tendencies on shellside. 

Slurries, suspensions, and pulps 

SPHE offers the best characteristics. Also consider free flow PHE or wide gap 
PHE. or scraped surface heat exchanger. 

Hcat-sensiuve liquids 

Cooling with air 

Gas or air under pressure 

PHE fulfills the requirements best. Also consider SPHE. 

Extended surface types like tube-fin heal exchanger or PFHE. 

Use STHE with extended surface on the gas side or brazed plate-fin exchanger 
made of stainless steel or nickel alloys. 

Cryogenic applications 

Vapor condensation 

Brazed aluminum plate-fin exchanger, coiled tube heat exchangers, or PCHE. 
Surface condensers of .STHE in carbon steel are preferred. Also consider 

SPHE or brazed plale heal exchanger. 

Vapor/gas partial condensation 
Refrigeration and air conditioning 
applications 

Air-air or gas-gas applications 

Viscous products, aseptic products, jam. 
food and meat processing, heat sensitive 
products and particulate laden products 

Choose SPHE. 

Finned tube heat exchangers, special types of PHEs. brazed PHE up to 200' C. 

Regenerators and plate-fin heal exchangers. Also consider STHE 

Scraped surface heat exchanger. 


Note; STHE shell and tube heal exchanger. PHE gasketed plate heal exchanger SPUE spiral plale heat exchanger. LHE lamella 
heat exchanger. PC HE. printed circuit heal exchangers: CTHE. coiled tube heal exchanger PFHE plate-tin heat exchanger. 

Tabla 1. Tipo de intercambiador recomendado enfuncion de losfluidos de trabajo. 
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4. INTERCAMBIADORES DE CALOR 

TUBO-CARCASA 
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Son el tipo de intercambiador mas utilizado, se utilizan en diversas aplicaciones tales 
como enfriamiento de aceite, condensadores, feed water heater (precalentador de agua 
en las centrales)... 

Proporcionan flujos de calor elevados en relacion con su peso y volumen, son 
relativamente faciles de construir en una gran variedad de tamanos y bastante faciles 
de limpiar y reparar. Ademas son versatiles, y pueden ser disenados para cumplir 
practicamente con cualquier aplicacion. 

4.1 Estandares de diseno 

4.1.1 TEMA 

Son los estandares fijados por los fabricantes de intercambiadores tubulares TEMA 
(Tubular Exchanger Manufacturers Association) [4], Se siguen en la mayona de los pafses 
del mundo para la construccion de intercambiadores tubo-carcasa. Se aplica a 
intercambiadores con diametro de carcasa interior maximo de 60in. (1524mm), presion 
maxima de 3000psi (207 bar) y relacion diametro interno carcasa * presion menor de 
60000 psi (105000 mm bar). La intencion de estas limitaciones es limitar el diametro de 
los pernos utilizados en el ensamblaje del equipo y el espesor de la carcasa a 50.8 mm. 

Cada una de las secciones del intercambiador se identifica con una letra dependiendo 
de su forma y caracteristicas. De modo que los intercambiadores se identifican por 3 
letras y las dimensiones del intercambiador. La primera letra designa el tipo de cabezal 
anterior, la segunda el tipo de carcasa y la tercera el tipo de cabezal posterior. Por lo 
que la descripcion completa de estos equipos queda: diametro de carcasa/longitud de 
tubos XXX, siendo X las letras que corresponden a cada tipo de componente. 
En el caso de los tubos en U, la longitud se toma hasta la tangente que pasa por el fondo 
de la U, en caso de ser otro tipo de tubos se toma sencillamente la longitud de los 
mismos. 
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Figura 21. Designacion de las secciones de intercambiadores tubo-carcasa, TEMA. 

Las clases R, C y B se han combinado en la seccion RCB. 

-TEMA B: utilizado para procesos qufmicos, mas riguroso que el TEMA C, pero menos 
que el R. 

-TEMA C: es el mas utilizado industrialmente y procesos comerciales, normalmente 
para procesos con requerimientos no muy elevados. 
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-TEMA R: es el de mas riguroso, normalmente se utiliza en aplicaciones de procesos 
del petroleo y relacionados. 

4.1.2 ANSI/API Standard 660 

Este estandar americano [5] proviene del ISO 16812:2002, se utiliza en las industrias del 
gas natural y el petroleo, para especificar requerimientos, diseno, seleccion de 
materiales, fabricacion, inspeccion, pruebas y preparacion de envios para los 
intercambiadores tubo-carcasa. 

4.2 Componentes principales de los intercambiadores tubo-carcasa 
4.2.1 Tubos 

En los intercambiadores tubo-carcasa se utilizan exclusivamente tubos de seccion 
circular. Dado que la transferencia de calor tiene lugar en la superficie de los tubos, es 
importante seleccionar las variables geometricas correctas de cara a obtener un buen 
rendimiento [6], Entre las variables a seleccionar destacan el diametro exterior, el 
espesor del tubo, la separacion entre tubos (tube pitch) y la distribucion de los tubos 
(tube layout). Los tubos tienen que soportar diversos requerimientos: 

-Temperatura de trabajo a ambos lados del tubo. 

-Esfuerzos termicos debido a las diferencias entre las dilataciones termicas de la 
carcasa y el haz de tubos. 

-Corrosion a la que se ven sometidos por parte de ambos fluidos. 

Existen dos tipos de tubos, rectos y tubos en U. Ademas, los tubos se pueden clasificar 
en: 


-Tubos lisos 
-Tubos aleteados 

-Tubos bimetalicos, se utilizan dos metales diferentes, uno en el interior y otro en 
el exterior, para solventar problemas de corrosion. 



Figura 22. Corte de un tubo bimetalico. 
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-Tubos con superficie mejorada (enhanced surface), se utilizan cuando uno de los 
dos fluidos tiene un coeficiente de transferencia de calor bajo. En algunos casos 
tanto la superficie interior como la exterior se tratan para mejorar los coeficientes 
convectivos. 



Figura 23. Tubos con superficie mejorada. 

4.2.1.1 Diametro 

El tamano de los tubos se especifica mediante el diametro exterior y el grosor del tubo. 
Los tubos con menor diametro presentan mayor coeficiente de transferencia y resultan 
en intercambiadores mas compactos. Sin embargo, un diametro mayor permite una 
mejor limpieza y son necesarios cuando la perdida de carga admisible en los tubos es 
pequena. La mayoria de los tubos utilizados tienen un diametro exterior entre % in. (6.35 
mm) y 2 in. (50.8 mm). Las dimensiones estandar de TEMA estan especificadas en la 
siguiente tabla. 
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BARE TUBE DIAMETERS AND GAGES 


O.D. 

In. 

(mm) 

Copper and Copper Alloys 

Carbon Steel, Aluminum and 
Aluminum Alloys 

Other Alloys 


B.W.G. 

B.W.G. 

B.W.G. 

1/4 

27 

- 

27 

(6.4) 

24 

- 

24 


22 

- 

22 

3/8 

22 

- 

22 

(9.5) 

20 

- 

20 


18 


18 

1/2 

20 

- 

20 

(12.7) 

18 

- 

18 

5/8 

20 

18 

20 

(15.9) 

18 

16 

18 


16 

14 

16 

3/4 

20 

16 

18 

(19.1) 

18 

14 

16 


16 

12 

14 

7/8 

18 

14 

16 

(22.2) 

16 

12 

14 


14 

10 

12 


12 

- 

- 

1 

18 

14 

16 

(25.4) 

16 

12 

14 


14 

- 

12 

1-1/4 

16 

14 

14 

(31.8) 

14 

12 

12 

1-1/2 

16 

14 

14 

(38.1) 

14 

12 

12 

2 

14 

14 

14 

(50.8) 

12 

12 

12 


Tabla 2. Dimensiones de tubos normalizadas. Table RCB-2.21 [4], 

Los diametros mas utilizados son 3/8 in. y % in, que presentan los mejores rendimiento 
y son los mas economicos [7], Para fluidos "limpios" se utilizan % in. (6.35 mm) mientras 
que para limpieza mecanica el menor tamano practico es % in. (19.05 mm). Para fluidos 
en los que se espera fouling se utilizan tubos de diametro 1 in. y superiores [8]. 

4.2.1.2 Espesor 

Los espesores de tubos estandar aparecen en la tabla anterior. El grosor del tubo se 
debe comprobar para la presion interior y exterior y para la maxima diferencia de 
presiones a los dos lados del tubo. Excepto cuando la presion es el factor limitante, el 
espesor del tubo se selecciona en funcion de la corrosion, los problemas de vibracion, 
coste y dimensiones estandar [9], 

En el caso de los tubos en U, el espesor del tubo en el radio exterior disminuye, por lo 
que es necesario que el tubo tenga un espesor inicial mayor antes de doblarlo. 
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t Q =U 



d > 


con 

to: espesor del tubo inicial 

ti: espesor mmirrio especificado por TEMA para un tubo recto disenado para los 
mismos requerimientos de presion y temperatura 
d: diametro del tubo exterior 
Rb: radio de curvatura 

4.2.1.3 Aletas 

En algunos intercambiadores tubo-carcasa se emplean tubos microaleteados para 
incrementar la superficie de contacto del lado de la carcasa cuando el coeficiente de 
transferencia de calor exterior es bajo en comparacion con el del interior del tubo. 
En general se emplean unas aletas de una altura inferior a 1/16 in. (1.59 mm). La 
cantidad de aletas por unidad de longitud tipica oscila entre 19 y 40 aletas/in. (748-1575 
aletas/m). El area de contacto es de 2.5 a 3.5 veces la de un tubo liso [6], 



Figura 24. Tubo microaleteado. 
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4.2.1.4 Longitud 

Dada un area determinada, el intercambiador mas economico posible se basa en tubos 
largos y un diametro de carcasa pequeno. Sin embargo existen restricciones en la 
longitud maxima ya que son mas dificiles de instalar y el mantenimiento es mas caro 
debido a limitaciones en el espacio, ademas de que la perdida de carga en los tubos es 
mayor. De modo que se suele optar por intercambiadores mas cortos y con un diametro 
de carcasa mayor a pesar de su mayor precio. Las longitudes estandar de TEMA son 96, 
120, 144, 196 y 240 in. (2438.4, 3048, 3657.6, 4978.4, 6096 mm) [5], 

4.2.1.5 Tecnologias de fabrication 

Los tubos son soldados o continuos. Los tubos soldados son enrollados a partir de 
material piano y son soldados de manera precisa. Los tubos continuos se suelen fabricar 
por extrusion o hot piercing. 

4.2.1.6 Numero de tubos 

El numero de tubos depende del caudal masico y la perdida de carga admisible. Se 
selecciona el numero de tubos de modo que la velocidad del fluido por su interior se 
encuentre entre 3 y 8 ft/s (0.9 y 2.4 m/s) y la velocidad por el interior de la carcasa entre 
2 y 5 ft/s (0.6 y 1.5 m/s) [6], El limite de velocidad inferior es para limitar el fouling y la 
sedimentacion de las particulas cuando los fluidos contienen arenas u otro tipo de 
particulas, mientras que el limite superior es para disminuir la erosion y corrosion en el 
interior del tubo y para evitar la vibracion en el lado de la carcasa. 

4.2.1.7 Tube count 

Se denomina asi al numero maximo de tubos que entran en una determinada carcasa 
una vez conocido su diametro. Depende de diversos factores: 

-Diametro de carcasa 
-Diametro de los tubos externos 
-Distancia entre tubos (tube pitch) 

-Formacion de los tubos (triangular, cuadrada) 

-Separacion entre la carcasa y el haz de tubos 

-Tipo de intercambiador (de tubos en U, cabeza flotante o fijos) 

-Numero de pasos de los tubos 
-Presion de funcionamiento 

-Deflectores, sellos y otros dispositivos que ocupan espacio en la carcasa. 

El metodo convencional es mediante dibujo pero es demasiado lento y Neva a errores. 
Existen tablas que contienen diversas combinaciones estandar pero se puede calcular 
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mediante una aproximacion matematica ideada por Phadke [10], que permite calcular 
el numero de tubos en funcion de la disposicion de estos. 

4.2.2 Disposicion de los tubos 
4.2.2.1 Separation 

Conocido como tube pitch es la separacion existente entre dos tubos consecutivos. Una 
separacion pequena aumenta la transferencia de calor del lado de la carcasa y permite 
construir un intercambiador mas compacto, mientras que una separacion mayor reduce 
la perdida de carga y el fouling en la carcasa y facilita su limpieza. La separacion minima 
es de 1.25 veces el diametro externo de los tubos, dado que con una separacion menor 
la placa existente entre dos agujeros consecutivos (en los tubesheet) se vuelve 
demasiado debil. 


Tube 0D 


Tube 00 



Square pitch, 90* layout 
Tube 00 

_ZL f- 



Diamond square pitch, 45* layout 
Tube 0D 


Flow> A 

■.'’OOOOQOv^ 
/OOOOOO Os 

ooooooo o. 

WOOOwP/. 


Pitch 

Triangular pitch. 30* layout 


Inline triangular pitch, 60° layout 

Figura 25. Diversas disposiciones de los tubos en una carcasa 


4.2.2.2 Layout 

Es la forma que toma la disposicion de los tubos. Existen cuatro tipos estandar: 
triangular (30^), triangular girada (60^), cuadrada (90^) y cuadrada girada (45^). Los 
angulos se toman en referencia a la direccion del flujo. Para la misma separacion y flujo, 
en orden creciente de perdida de carga y coeficiente de transferencia de calor se 
encuentran 90^, 60^, 45^ y 30 ? . 
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4.2.2.2.1 Triangular y triangular girado 

Esta disposition permite un diseno mas compacto, al tener un mayor coeficiente de 
transferencia. Se pueden introducir hasta un 15% mas de tubos que en una disposition 
cuadrada [9], 



60 ° 


Figura 26. Layout triangular. 


4 . 2 . 2.22 Cuadrada y cuadrada girada 

Cuando es necesario realizar una limpieza mecanica se utiliza una disposicion cuadrada. 
Tambien es conveniente cuando existe una limitacion en la perdida de carga de la 
carcasa ya que la perdida de carga es menor que en disposiciones triangulares asi como 
el coeficiente de transferencia de calor. 



90 ° 


45 ° 


Figura 27. Layout cuadrado. 

Shah [6] sugiere el uso de layouts cuadrados para aplicaciones en las que la perdida de 
carga en la carcasa es una limitacion y para recalentadores (reboilers), ya que el vapor 
fluye mejor. 
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4.2.3 Deflectores o baffles 

Los deflectores pueden ser transversales o longitudinales. Los longitudinales se utilizan 
cuando se requieren dos o mas pasos por carcasa, son denominados divisores de paso. 
Los deflectores transversales tienen la funcion de que el fluido circule de manera normal 
a los tubos para aumentar la turbulencia y la transferencia de calor. 

4.2.3.1 Deflectores transversales 

Existen diversos tipos de deflectores transversales. 


4.2.3.1.1 Deflectores segmentados 

Son discos circulares segmentados. La parte del disco eliminada se denomina ventana 
del deflector y se expresa como un porcentaje del diametro de la carcasa, se calcula 
dividiendo la altura de la ventana entre el diametro. El coeficiente de transferencia y la 
perdida de carga dependen de manera importante del corte del deflector (baffle cut). 
Oscila entre el 20% y el 49%, siendo lo mas comun un corte de entre un 20% y un 25%, 
ya que el optimo se encuentra en torno al 20%. 



Corte del deflector pequeno 




Corte del deflector y separacton 
entre deflectores ideal 


Figura 28. Flujo en un intercambiador dependiendo de los deflectores. 

Separacion entre deflectores : se utilizan unas separaciones entre 1/5 y 1 veces el 
diametro de la carcasa y el optimo se encuentra entre el 40% y el 50% del diametro. Las 
separaciones a la entrada y la salida de la carcasa suelen ser mayores debido a los 
acoplamientos ya que requieren un mayor espacio. 
Grosor de los deflectores : TEMA especifica los grosores mmirnos para varios diametros 
de carcasa y separaciones de deflectores. Tabla R-4.41 de TEMA con los grosores en in. 
(mm) para distintos diametros de carcasa y distancia entre deflectores centrales. 
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BAFFLE OR SUPPORT PLATE THICKNESS 
_ Dimensions in Inches (mm) _ 


Nominal Shell ID 

Plate Thickness 

Unsupported tube length between central baffles. End spaces between tubesheets 
and baffles are not a consideration. 

24 (610) and 
Under 

Over 24 (610) 
to 36 (914) 
Inclusive 

Over 36 (914) 
to 48 (1219) 
Inclusive 

Over 48 (1219) 
to 60 (1524) 
Inclusive 

Over 60 
(1524) 

6-14 (152-356) 

15-28 (381-711) 

29-38 (737-965) 

39-60 (991-1524) 

61-100 (1549-2540) 

1/8 (3.2) 
3/16 (4.8) 
1/4 (6.4) 
1/4 (6.4) 
3/8 (9.5) 

3/16 (4.8) 

1/4 (6.4) 

5/16 (7.5) 

3/8 (9.5) 

1/2 (12.7) 

1/4 (6.4) 
3/8 (9.5) 
3/8 (9.5) 
1/2 (12.7) 
5/8 (15.9) 

3/8 (9.5) 

3/8 (9.5) 

1/2 (12.7) 

5/8 (15.9) 

3/4 (19.1) 

3/8 (9.5) 
1/2 (12.7) 
5/8 (15.9) 
5/8 (15.9) 
3/4 (19.1) 


Tabla 3. Espesor de los deflectores requerido, Table R-4.41 [4], 


BAFFLE OR SUPPORT PLATE THICKNESS 
_ Dimensions in Inches-(mm) _ 


Nominal Shell ID 

Rate Thickness 

Unsupported tube length between central baffles. End spaces between 
tubesheets and baffles are not a consideration. 

12 (305) 
and Under 

Over 12 (305) 
to 24 (610) 
Inclusive 

Over 24 (610) 
to 36 (914) 
Inclusive 

Over 36 
(914) to 48 
(1219) 
Inclusive 

Over 48 
(1219) to 60 
(1524) 
Inclusive 

Over 60 
(1524) 

6-14 (152-356) 

15-28 (381-711) 

29-38 (737-965) 

39-60 (991-1524) 

61-100 (1549-2540) 

1/16 (1.6) 
1/8 (3.2) 

3/16 (4.8) 
1/4 (6.4) 

1/4 (6.4) 

1/8 (3.2) 
3/16 (4.8) 
1/4 (6.4) 
1/4 (6.4) 
3/8 (9.5) 

3/16 (4.8) 

1/4 (6.4) 

5/16 (7.5) 

3/8 (9.5) 

1/2 (12.7) 

1/4 (6.4) 

3/8 (9.5) 

3/8 (9.5) 

1/2 (12.7) 
5/8 (12.7) 

3/8 (9.5) 

3/8 (9.5) 

1/2 (12.7) 
5/8 (15.9) 
3/4 (19.1) 

3/8 (9.5) 

1/2 (12.7) 

5/8 (15.9) 

5/8 (15.9) 

3/4 (19.1) 


Tabla 4. Espesor de los deflectores requerido, Table CB-4.41 [4], 


Orientacion de los deflectores : los deflectores segmentados estan orientados 
alternamente 180 g entre ellos, lo que produce que el fluido circule de manera normal 
por el haz de tubos y paralelamente por la ventana del deflector. 
Todos los deflectores segmentados tienen un corte del deflector horizontal, salvo en 
casos de condensacion (para que el condensado fluya facilmente hacia la salida), para 
fluidos en ebullicion o condensacion o para fluidos con solidos en suspension en los que 
se utilizan cortes del deflector verticales. 





Figura 29. Diferentes cortes del deflector. 
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Los deflectores segmentados se pueden encontrar de segmentado simple o segmentado 
multiple. Los deflectores de segmentado multiple se utilizan en casos con limitaciones 
de perdida de carga, ya que el fluido circula practicamente de forma paralela a los tubos, 
produciendose una perdida de carga mucho menor. 



Figura 30. Deflectores de segmentacion doble. 



Figura 31. Deflectores de segmentacion triple. 
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El solapamiento debe conteneral 
tnenos una fila de tubos para 
asegurar el soporte de los mismos. 




El solapamiento debe contener al 
menos una fila de tubos para 
asegurar el soporte de los mismos. 


Figura 32. Requerimientos en la disposicion de los deflectores de segmentacion multiple. 


4.2.3.1.2 Deflectores disco y anillo 

Consisten en una sucesion de deflectores con forma de anillo y de disco alternos. 
Producen una perdida de carga menor que los segmentados y elimina las filtraciones 
entre carcasa y haz de tubos. Se utilizan principalmente en intercambiadores de calor 
nucleares [6], 



Figura 33. Deflectores de disco y anillo. 

4.2.3.1.3 Deflectores con orificios 

En este tipo de deflectores, la holgura entre los tubos y los orificios del deflector es 
mucho mayor, y se utilizan estos mismos orificios como deflectores. No ayudan a 
soportar los tubos, debido al fouling se taponan facilmente y no se pueden limpiar. 
Raramente se utilizan. 
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4.2.3.1.4 Sin tubos en la ventana 

Normalmente la zona de la ventana del deflector tambien contiene tubos. Dado que 
dichos tubos estos tubos estan soportados a una distancia el doble de la separacion 
central de los deflectores y por lo tanto son mas susceptibles de vibrar. En este caso, 
dichos tubos se eliminan por lo que todos los tubos del intercambiador pasan por los 
agujeros de los deflectores. 

La perdida de carga con estos deflectores es en torno a un tercio de la producida con los 
segmentados simples. Ademas, se reduce la tendencia al fouling. El principal problema 
es la disminucion de superficie de intercambio de calor, lo que puede ser minimizado 
mediante aumentos de velocidad en la carcasa o carcasas con mayor diametro [11]. 

4.2.32 Deflectores longitudinales 

Dividen la carcasa en dos o mas secciones para permitir realizar mas de un paso por 
carcasa. No se debe usar a menos que el deflector este soldado a la carcasa ya que se 
producirian fugas, lo que resulta contraproducente. Cuando es necesario mas de un 
paso por la carcasa, es mas economico el uso de carcasas separadas, a menos que el 
diametro de la carcasa sea lo suficientemente grande para que la soldadura del deflector 
a la carcasa sea facil [8], 


Fluido que circula Fluido que circula 



Figura 34. Intercambiador tubo-carcasa con deflector longitudinal. 

42.3.3 Otro tipo de deflectores 

Existen diversos tipos de deflectores patentados que pretenden mejorar los problemas 
de vibracion en los tubos y la perdida de carga sin perjudicar la transferencia de calor. 
Algunos de el los son NEST™ baffle, EGG-CRATE-GRID™, los baffles Grimmas o los baffles 
Holtec no segmentados. 
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Figura 35. Ejemplos de algunos deflectores patentados. 


C3CC3 
'COCCOCC3 
CC3CC3C3 

C^CXXXXX) 


.COCCOCCO. 
C3CC3 


Figura 36. Deflector tipo Grimmas. 

4.2.4 Placa tubular o placa de tubos (tubesheet) 

Es la principal separacion entre los fluidos, en ella van incrustados los tubos, de modo 
que el fluido que circula por su exterior no entre en contacto con el del interior. La 
mayoria son circulares con agujeros taladrados segun la disposicion de los tubos 
deseada. 
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Figura 37. Placa tubular. 

Debe ademas cumplir con los requerimientos mecanicos, soportar la corrosion por parte 
de ambos fluidos y ser qufmicamente compatible con el material de los tubos. Por lo 
general, estan fabricadas de acero de bajo contenido en carbono con una capa de 
aleacion anticorrosiva, pero tambien se fabrican de otros metales, como el titanio. 

4.2.4.1 Union tubos-placa tubular 

El metodo mas utilizado es la expansion, pero en los casos en los que las tensiones o las 
presiones pueden causar fugas se utiliza la soldadura. Tambien se utiliza en casos en los 
que la contaminacion entre los fluidos no es permisible. 

4.2.4.2 Doble placa tubular 

Cuando se desea eliminar completamente la posibilidad de contaminacion entre ambos 
fluidos debido a las fugas, se opta por la utilizacion de una doble placa de tubos. 



\ 


J 


Figura 38. Intercambiador con doble placa tubular. 


57 









Alejandro Arroyo Andres 


Intercambiadores de calor tubo-carcasa 


DISENO BAJO NORMA TEMA DE INTERCAMBIADORES TUBO-CARCASA 



4.2.4.2.1 Diseno convencional 

En este tipo de diseno, las dos placas tubulares se instalan con una pequena separacion 
entre ellas para detectar cualquier fuga rapidamente. En aplicaciones mas peligrosas se 
puede utilizar una placa tubular triple, sellos gaseosos e incluso un sistema de 
recirculacion de fugas. 

4.2.4.2.2 Diseno integral 

Es un diseno patentado consistente en una sola placa similar a una placa tubular simple 
pero con unas muescas en el interior de los agujeros que interconectan los tubos con el 
fin de reducir las fugas. Minimiza los problemas de dilatacion diferencial pero no es tan 
efectivo como la doble placa tubular convencional evitando la mezcla de los fluidos, 
ademas de ser caro. 

4.2.4.2.3 Inconvenientes de una doble placa tubular 

Se debe evitar la utilizacion de una doble placa tubular si no es necesario, ya que 
presenta diversos inconvenientes [12]. 

-Superficie de los tubos no aprovechada 
-Mayor coste de fabricacion 

-Todos los procesos de puesta en marcha y parada son mas complicados 
-Aparecen los problemas de dilatacion radial diferencial y dilatacion longitudinal 
diferencial entre las dos placas tubulares 

4.2.5 Haz de tubos (tube bundle) 

Es el conjunto de tubos, deflectores, placas tubulares, tie-rods y spacers y deflectores 
longitudinales si los hubiera. 
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Figura 39. Haz de tubos. 

4.2.5.1 Spacersy tie-rodsy dispositivos de sellado 

Los spacers y tie-rods son necesarios para mantener la separacion entre los deflectores. 
Los tie-rods son barras que se encuentran incrustadas en la placa tubular y llegan hasta 
el ultimo deflector. Entre los deflectores se encuentran los spacers que van solapados a 
las barras para mantener la distancia entre deflectores constante. Aportan tambien la 
funcion de sellado impidiendo las fugas entre la carcasa y el haz de tubos. 
El numero necesario de ambos esta especificado por TEMA. 

4.2.5.2 Limite de los tubos externo 

Conocido como outer tube limit (OTL) es el diametro del cfrculo que circunscribe todos 
los tubos del haz de tubos. 

4.2.6 Carcasa 

Las carcasas son fabricadas en un amplio rango de medidas estandar, materiales y 
espesores. Las mas pequenas normalmente se fabrican a partir de tubos de tamanos 
estandarizados, mientras que las que son mas grandes se fabrican mediante el enrollado 
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de placas. El coste de la carcasa es mucho mayor que el coste de los tubos, por lo que 
en el proceso de diseno se tratan de que solo sea necesaria una carcasa. Normalmente 
los intercambiadores mas baratos se forman mediante carcasas de menor diametro y 
mayor longitud. 

Los diametros de carcasa normalizados estan especificados por TEMA. 


MINIMUM SHELL THICKNESS 
Dimensions In Inches (mm) 


Nominal Shell Diameter 

Minimum Thickness 

Carbon Steel 

Alloy * 

Pipe 

Ptate 

6 

(152) 

SCH.40 


- 


1/8 

(3.2) 

8-12 

(203-305) 

SCR 30 


- 


1/8 

(3.2) 

13-29 

(330-737) 

SCH. STD 


38 

(95) 

3/16 

(4.8) 

30-39 

(762-991) 

- 


7/16 

(11.1) 

1/4 

(6.4) 

40-60 

(1016-1524) 

• 


1/2 

(12.7) 

5/16 

(7.9) 

61-80 

(1549-2032) 

- 


1/2 

(12.7) 

5/16 

(7.9) 

81-100 

(2057-2540) 

* 


1/2 

(12.7) . 

3/8 

(9.5) 


Tabla 5. Diametros de carcasa normalizados, Table R-3.13 [4], 


MINIMUM SHELL THICKNESS 
_ Dimensions in Inches (mm) 


Norn Inal Shell Diameter 

Minimum Thickness 

Carbon Steel 

Alloy* 

Pipe 

Plate 

6 

(152) 

SCH.40 


• 


1/8 

(3.2) 

8-12 

(203-205) 

SCH . 30 


• 


1/8 

(3.2) 

13-23 

(330-584) 

SCH . 20 


5/16 

(79) 

1/8 

(3.2) 

24-29 

(610-737) 



5/16 

(7.9) 

3/16 

(4.8) 

30-39 

(762-991) 



38 

(95) 

1/4 

(6.4) 

40-60 

(1016-1524) 



7/16 

(11.1) 

1/4 

(6.4) 

61-80 

(1549-2032) 



1/2 

(12.7) 

5/16 

(7.9) 

81-100 

(2057-2540) 



1/2 

(12.7) 

3/8 

(9.5) 


Tabla 6. Diametros de carcasa normalizados, Table CB-3.13 [4], 


4.2.6.1 Junta de expansion 

Dado que los fluidos del lado de la carcasa y de los tubos estan a distinta temperatura 
se producen diferencias en la dilatacion termica. Si la diferencia de temperaturas es 
grande, se producen tensiones en la carcasa y el haz de tubos. En los intercambiadores 
de cabezal fijo, este problema es mas significativo, por lo que es necesario incluir una 
junta de expansion en la carcasa para solucionar el problema. En los intercambiadores 
con tubos en U y de cabezal flotante este problema se soluciona gracias al diseno. 
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Figura 40. Intercambiador con junta de expansion. 

42.6.2 Boquillasy proteccion contra el impacto 

Las boquillas se utilizan para realizar la entrada y la salida del fluido del intercambiador. 
Son tubos de seccion constante soldados a la carcasa. 
La entrada del fluido en la carcasa puede danar los tubos debido a la erosion causada 
por la alta velocidad de entrada o por pequenas particulas en suspension que pueda 
contener el fluido, tambien en el caso de mezclas liquido-vapor la erosion es intensa. La 
necesidad o no de incluir una placa de impacto esta especificada en TEMA en funcion de 
la energia cinetica de entrada o la abrasividad del fluido. 



PLACA DE 
IMPACTO 



Figura 41. Placa de impacto. 

42.6.3 Ventilaciony drenajes 

Es necesario realizar algunas aberturas en la carcasa para introducir los drenajes y la 
ventilacion del intercambiador, asi como otros instrumentos de medida como 
termopares o medidores de presion. 

4.2.6.4 Tiras de sellado (sealing strips) 

Son dispositivos de sellado que se colocan a lo largo de la carcasa, para impedir que el 
fluido circule entre el haz de tubos y la carcasa, evitando los tubos. 
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Figura 42. Disposition de las tiras de sellado en un intercambiador. 


Existen distintos tipos de sealing strips: 



Figura 43. Tipos de tiras de sellado. 

4.2.7 Pasos 

4.2.7.1 Pasos por los tubos 

El paso mas simple es que el fluido entre por un extremo y saiga por el otro, seria una 
disposicion de un solo paso. Para mejorar el coeficiente de transferencia y hacer el flujo 
lo mas parecido a contracorriente posible, se aumenta el numero de pasos. 
Normalmente se disenan los intercambiadores con el mismo numero de tubos en cada 
paso, de modo que la velocidad por los tubos sea la misma en todos los pasos. 
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El numero de pasos generalmente oscila entre uno y ocho. El maximo numero de pasos 
esta limitado en general por limitaciones de los fabricantes y en el montaje. En 
disposiciones de paso multiple se suelen utilizar un numero par de pasos, ya que los 
numeros de pasos impares pueden llevar a problemas termicos y mecanicos en su 
fabricacion y su funcionamiento. Larowski [13] sugiere las siguientes directrices: 


-Si el fluido que va por los tubos es bifasico, ya sea condensando o en ebullicion, es 
mejor que fluya por un unico tubo o en un tubo en U. 
-Si el coeficiente de transferencia del lado de la carcasa es significativamente menor 
que el de los tubos, no es recomendable aumentar el coeficiente de transferencia 
de los tubos a costa de incrementar la perdida de carga ya que el aumento del 
coeficiente de transferencia global no sera significativo. 
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Figura 44. Disposiciones tipicas de los pasos por los tubos. (a) Tubos en U y (b) tubos rectos. A- 
A: vista frontal y B-B: vista trasera. 
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4.2.7.2 Pasos por la carcasa 

Para intercambiadores que requieren una alta eficiencia, es necesario utilizar mas de un 
paso por carcasa. Se puede utilizar deflectores longitudinales, pero reducen el area de 
paso por la carcasa en comparacion con un solo paso. La otra opcion es conectar diversas 
carcasas en serie. 

4.2.8 Gasification de intercambiadores tubo-carcasa en funcion del cabezal 

Existen tres tipos de intercambiadores tubo-carcasa: intercambiadores de cabezal fijo, 
intercambiadores de cabezal flotante e intercambiadores con tubos en forma de U. 
La election de uno u otro depende de diversos factores [7], como son la dilatation 
termica diferencial, medios de controlar el fluido por los tubos y la carcasa y facilidades 
en el mantenimiento asi como el coste. Los intercambiadores de cabezal fijo son los mas 
baratos normalmente excepto si es necesaria una junta de expansion, en cuyo caso un 
intercambiador de tubos en U puede resultar mas barato. 

4.2.8.1 Intercambiadores de cabezal fijo 

Es el tipo de intercambiadores mas utilizado. Se fabrican con las placas tubulares 
soldadas a la carcasa a ambos lados, de modo que todos los tubos son rectos y tienen a 
cada extremo una placa tubular. Se minimiza el numero de juntas y por tanto es 
necesario menos mantenimiento. 

En este tipo de intercambiadores se utilizan los cabezales anteriores TEMA A, B o N y los 
cabezales posteriores L, M o N. 



Figura 45. Cabezal fijo tipo L. 

Se pueden utilizar en las siguientes situaciones [14]: 

-Se desea minimizar el numero de juntas 

-Las temperaturas de trabajo no presentan un problema de tensiones termicas 
-El fluido que circula por la carcasa es limpio y no es necesario desmontar el haz de 
tubos 

-Se desea un alto grado de protection ante contamination de las corrientes 
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-Se puede utilizar doble placa tubular 
-Se puede realizar limpieza mecanica 

Son intercambiadores de un numero impar de pasos portubo ya que el fluido que circula 
por los tubos entra y sale del intercambiador por lados opuestos. 

Se debe realizar un analisis termico considerando todas las fases de operacion para 
evaluar si las tensiones termicas son un problema y como solucionarlo si asi es. 

4.2.8.2 Intercambiadores de cabezal flotante 

Consisten en una placa tubular fija y otra flotante que se encuentra libre para permitir 
la dilatacion termica del haz de tubos. Se utilizan cabezales anteriores TEMA A, B o C. 

Existen cuatro tipos de cabezales flotantes posteriores. 

Flotante externo : (cabezal P) se utiliza el faldon exterior de la placa de tubos como parte 
del cabezal flotante. Permite el sellado y a su vez que el cabezal flotante se mueva. El 
haz de tubos es extraible por lo que el mantenimiento es muy facil. Con este tipo de 
cabezal, las fugas se producen solo hacia el exterior, nunca hacia el otro fluido, de modo 
que no existe contaminacion. Suele ser necesario el uso de tiras de sellado, ya que existe 
una holgura entre haz de tubos y carcasa de en torno a 4cm. Se recomienda este tipo de 
cabezales para baja presion, baja temperatura y fluidos no peligrosos. 



Figura 46. Cabezal flotante tipo P. 

Flotante sellado externamente: (cabezal W) se utiliza un anillo rodeando a la placa de 
tubos, para sellar los dos fluidos permitiendo que la placa de tubos se mueva hacia atras 
y hacia adelante. El numero de pasos por los tubos esta limitado a uno o dos. El haz de 
tubos es extraible y es el cabezal flotante de menor coste. El anillo esta provisto de 
pequenos orificios para que las posibles fugas que se produzcan sean hacia el exterior. 
Se recomienda este tipo de cabezales para baja presion, baja temperatura y fluidos no 
peligrosos. 
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Figura 47. Cabezal flotante tipo W. 


Traction continua: (cabezal T) consiste en una cubierta del cabezal atornillada a la placa 
de tubos. El haz de tubos se puede extraer sin desmontar las juntas del cabezal flotante. 
Es necesario retirar muchos tubos del diametro exterior debido a los pernos. Esto 
implica un menor numero de tubos para un mismo diametro de carcasa, y una holgura 
entre haz de tubos y carcasa superior. Para solventar la reduccion de eficiencia termica 
es necesario el uso de tiras de sellado y un aumento del diametro de la carcasa. La 
aplicacion ideal para este tipo de cabezal son los Kettle reboiler (carcasa TEMA K, 
explicada mas adelante). 



Figura 48. Cabezal flotante tipo T. 


Anillos divididos: (cabezal S) a diferencia del cabezal de traccion continua, en este caso, 
la cubierta del cabezal esta atornillada a un anillo. La carcasa situada en el cabezal 
flotante tiene un diametro mayor que el resto de la carcasa. Por lo que la holgura en la 
carcasa es pequena, y normalmente no se necesitan tiras de sellado. El haz de tubos no 
es extraible. Es necesario desmontar ambos extremos del intercambiador para limpieza 
y mantenimiento. Se recomienda este tipo de cabezal para alta presion y fluidos no 
peligrosos. 



Figura 49. Cabezal flotante tipo S. 
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4.2.8.3 Intercambiadores con tubos en forma de U 

En este tipo de intercambiadores el haz de tubos es libre de expandirse y se puede 
extraer. 

Se utilizan con los cabezales anteriores A, B, C, N o D. 

Se pueden utilizar en los siguientes casos [14]: 

-El fluido que circula por los tubos es limpio 
-Alta presion en uno de los fluidos 

-Las temperaturas de trabajo requieren dilatacion termica para que no se 
produzcan tensiones excesivas 

-Intercambiadores que trabajen con Eh a alta presion, realizando un 
intercambiador soldado sin posibilidad de extraer el haz de tubos 
-Para permitir que la entrada del fluido en la carcasa no se produzca directamente 
en el haz de tubos 

-Se quiere utilizar doble placa tubular 

-Se desea un alto grado de proteccion ante contaminacion de las corrientes 
Presentan algunos inconvenientes: 

-La limpieza mecanica de los tubos en su interior es dificil 

-La vibracion debido al flujo de la carcasa puede ser un problema en los tubos mas 
externos 

-Tienen menos area de contacto en comparacion con los tubos rectos 

-Los tubos internos son dificiles de reemplazar, teniendo muchas veces que extraer 

tambien algunos tubos exteriores. 

-Presentan una mayor erosion en su interior cuando las velocidades por los tubos 
son elevadas. 

-Aumenta la perdida de carga debido al cambio de direccion en la curva. 

4.2.9 Tipos de carcasa 

Existen siete tipos de carcasa estandar segun TEMA [4] en funcion del flujo en su interior: 

4.2.9.1 Carcasa TEMA E 

El tipo E es el mas utilizado debido a su coste, simplicidad y facilidad de fabricacion. 
Tiene un paso por la carcasa, con la entrada y salida del fluido a la carcasa por extremos 
opuestos. Es la mas comun en aplicaciones con fluidos en una sola fase. Multiples pasos 
por los tubos reducen la eficiencia del intercambiador o el factor de correccion F con 
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respecto a una configuracion de un solo paso. Si F es demasiado bajo, se pueden utilizar 
dos carcasas E en serie para aumentar la eficiencia. 




1 1 1 


CCJ_i_!_i_!_i_ 


-1-1-1- 



1 



Figura 50. Carcasa tipo TEMA E. 

4.2.9.2 Carcasa TEMA F 

Tiene dos pasos por carcasa y se suele utilizar con dos pasos portubos tambien, de modo 
que la disposicion del flujo es contracorriente, resultando en un factor F de 1. Las 
boquillas de entrada y salida se encuentran en el mismo extremo de la carcasa. Se 
transfiere una mayor cantidad de calor que en una carcasa tipo E a costa de una mayor 
perdida de carga, en torno a ocho veces mayor, debido a que la velocidad por la carcasa 
sera el doble. A pesar de esto, no se utiliza a menudo debido a diversos problemas 
asociados al deflector longitudinal. 

-Se produce transferencia de calor porconduccion a traves del deflector longitudinal 
debido al gradiente de temperatura entre ambos pasos por la carcasa 
-Si el deflector longitudinal no esta completamente soldado a la carcasa o si el 
sellado no es efectivo, se produciran fugas del lado de alta presion al de baja 

Estos factores reducen la eficiencia del intercambiador mas de lo que se consigue gracias 
al flujo contracorriente. Ademas si el deflector longitudinal esta soldado no es posible 
extraer el haz de tubos para su inspeccion y limpieza. 
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Figura 51. Carcasa tipo TEMA F. 

4.2.9.3 Carcasa TEMA G 

Este intercambiador tiene una boquilla central de entrada y una boquilla central de 
salida con un deflector longitudinal. El flujo entra por la boquilla central y se divide en 
dos corrientes, por ello son conocidos como intercambiadores de flujo dividido. Una de 
sus principales caracteristicas es su capacidad de producir factores de correccion de 
temperatura similares a los de las carcasas F, con una menor perdida de carga en la 
carcasa [15]. 

En la siguiente figura, se puede apreciar la variacion de la temperatura de los fluidos a 
lo largo de la carcasa segun las diferentes disposiciones. 



Figura 52. Carcasa tipo TEMA G. 
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4.2.9.4 CarcasaTEMAH 

Es similar a la carcasa tipo G, pero con dos boquillas de entrada y dos boquillas de salida 
con dos deflectores longitudinales, resultando en un intercambiador de doble flujo 
dividido. Se utiliza cuando la perdida de carga admisible es muy baja. En comparacion 
con la carcasa tipo E tiene una perdida de carga de 1/8 debido a que la velocidad por la 
carcasa es la mitad. 



Figura 53. Carcasa tipo TEMA H. 


Los intercambiadores tipo E y H se utilizan sobre todo en aplicaciones con cambio de 
fase en las que las fugas y el flujo contracorriente son menos importante que una buena 
distribucion del flujo. 

4.2.9.5 Carcasa TEMA J 

Este tipo de carcasa tiene una boquilla de entrada y dos de salida, o una de salida y dos 
de entrada. La velocidad por la carcasa es la mitad que en una carcasa E de modo que la 
perdida de carga sera en torno a 1/8. Se utiliza en aplicaciones con baja perdida de carga 
admisible. 

En la siguiente figura, se puede apreciar la variacion de la temperatura de los fluidos a 
lo largo de la carcasa segun las diferentes disposiciones. 
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Figura 54. Carcasa tipo TEMA J. 


42.9.6 Carcasa TEMA K 

Tambien conocido como Kettle Reboiler. Se utiliza para fluidos en vaporizacion, tanto en 
sobrecalentamiento como en enfriamiento en aplicaciones de refrigeracion. 
Consiste normalmente en un haz de tubos en U horizontal en una carcasa mayor de lo 
normal, el diametro del haz de tubos es en torno a un 50%-70% del diametro de la 
carcasa. 



Nozzles 


Figura 55. Carcasa tipo TEMA K. 


42.9.7 Carcasa TEMA X 

En este tipo de carcasa no se utilizan deflectores transversales pero se utilizan placas 
para eliminar la vibracion producida por el flujo en la carcasa. Las boquillas se 
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encuentran en el centro como en la carcasa tipo G. El flujo se divide en multitud de 
corrientes despues de entrar por la boquilla. Pueden existir problemas en la distribucion 
del flujo que se pueden solucionar haciendo la entrada del fluido a la carcasa de manera 
uniforme. Es la carcasa con menor perdida de carga por lo que se utiliza para 
calentamiento y enfriamiento de gases y para aplicaciones de condensacion en vacio. 


A 


i 



4 
















L 

L 


Figura 56. Carcasa tipo TEMA X. 

4.3 DILATACION TERMICA DIFERENCIAL 

Al existir una alta diferencia de temperatura entre los metales de la carcasa y el haz de 
tubos, se produce tambien una diferencia en la dilatacion y la contraccion. Esto ha de 
ser tenido en cuenta, y es especialmente relevante en intercambiadores de cabezales 
fijos. 

Tubos en U: este diseno permite que cada tubo se dilate y se contraiga 
independientemente. 

Cabezales fijos : en los intercambiadores de cabezales fijos, cuando la diferencia de 
temperatura entre los metales de la carcasa y el haz de tubos es grande (unos 50^C), el 
espesor de la placa tubular y las tensiones en los extremos de los tubos se vuelven 
demasiado grandes. Para solucionarlo se incorpora una junta de expansion en la carcasa 
[16]. 

Cabezales flotantes: en estos intercambiadores una de las placas tubulares es flotante y 
se mueve libremente para compensar la dilatacion o contraccion termica de los tubos. 

4.4 COEFICIENTE DE TRANSFERENCIA DE CALOR Y PERDIDA DE CARGA 
4.4.1 Coeficiente de transferencia de calor 

El coeficiente de transferencia de calor en los tubos es funcion del numero de Reynolds, 
el numero de Prandtl y el diametro del tubo. Para flujo turbulento, el coeficiente de 
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transferencia en los tubos varia con la potencia 0.8 de la velocidad del fluido por su 
interior. La viscosidad tambien tiene un papel importante en el coeficiente de 
transferencia de calor. 

El coeficiente de transferencia de calor en la carcasa depende de parametros como la 
velocidad del fluido en la carcasa, el diametro de la carcasa, el corte de los deflectores, 
la separacion entre deflectores, la holgura entre los tubos y los deflectores, diversas 
fugas que permiten circular al fluido por corrientes distintas a la deseada, el numero de 
pasos por la carcasa o el tipo de carcasa. 

4.4.2 Perdida de carga 

La perdida de carga depende de numerosas variables de diseno y de las propiedades de 
los fluidos. 

En la corriente que circula por los tubos influyen el diametro del tubo, la longitud del 
tubo, la forma de los tubos, el numero de pasos por los tubos, el numero de carcasas en 
serie o paralelo y el tamano de las boquillas. En flujo turbulento, la perdida de carga en 
los tubos es proporcional al cuadrado de la velocidad. Por lo que existe un optimo en la 
velocidad de los tubos antes de que aumentarla resulte contraproducente. La velocidad 
minima recomendable es de 1 m/s, mientras que la maxima es en torno a 2.5-3 m/s. 

En la corriente que circula por la carcasa, la perdida de carga depende de las variables 
de diseno como son el diametro de los tubos, la distancia entre tubos (tube pitch), la 
disposicion de los tubos (layout), el diametro de la carcasa, el tipo de deflectores, el 
corte de los deflectores, la separacion entre los mismos, la cantidad y el tamano de las 
boquillas y el tipo de carcasa. 
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A la hora de disenar un intercambiador, es necesario calcular los coeficientes convectivos para 
ambos lados del intercambiador, tanto los tubos como la carcasa, asi como las perdidas de carga 
en los mismos. 

Para ello, existen distintos metodos, pero el que se utilizara en este trabajo sera el denominado 
Bell-Delaware. 

5.1 termodinAmica 

5.1.1 Balance de energfa 

Se debe cumplir la primera ley de la termodinamica en el diseno de cualquier 
intercambiador, que se rige por la ecuacion: 

^h^-p.h (/h.i f h.<> ) /W t Cp^ c (/ Cj o j) ^ 

Es decir, que la potencia termica de transferencia de calor es la misma para ambos 
fluidos. 


Qs = Qt = C Pit m t AT t (4.1.2) 

5.1.2 Eficiencia termica 

Existen cuatro metodos de diseno para calcular la eficiencia termica de los 
intercambiadores de calor [17]. 

5.1.2.1 e-NTU 

En este metodo, el calor transferido del fluido caliente al frio se expresa como 


*7 ^ min( fh,i A'.i ) 


(4.1.3) 


donde e es la eficiencia del intercambiador. Es adimensional y suele depender de NTU, 
C* y la disposicion de los flujos. 


e = 6 (NTU, C*, flow arrangement) 


C* es la relacion de las capacidades calorfficas, la menor frente a la mayor, de modo que 
siempre es menor que 1. 


c* = 


c 


c, 


( me p )min 

(.me p )| tULV 


(4.1.4) 
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NTU (Number of Transfer Units), se define como la relacion entre la conductividad 
termica global y la menor capacidad calorffica. 


NTU = 


UA 

n 

^ rn in 


(4.1.5) 


e se define como la relacion entre la transferencia de calor real y la maxima posible 
segun la segunda ley de la termodinamica: 



(/max 


(4.1.6) 


Si C*=l, £h= £c 


e = 


^h(^ha — ^h.o) C c (/ c ,o —/ c ,i) 


^•"minUhi ^c.i ) U m in ( fh.i fc.i) 


(4.1.7) 


Si NTU es bajo, la eficiencia del intercambiador (s) es baja en general. Segun aumenta el 
valor de NTU, aumenta s y se aproxima al valor asintotico. En el caso de alcanzar un 
maximo, £ decrece con el aumento de NTU. 
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Figura 57. Graficas para la obtencion de la efectivldad en el metodo e-NTU. 
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5.1.2.2 P-NTUt 

Es una variante del metodo e-NTU, ideada para intercambiadores tubo-carcasa. En este 
caso se utiliza la eficiencia de temperaturas del fluido elegido, P, en funcion de NTU y la 
relacion de capacidades calorificas de ese fluido frente al otro, R. Se utiliza el fluido que 
circula por los tubos, tanto si es el caliente como el frio. La transferencia de calor del 
fluido caliente al frio se define como 


q = PQiTi-h) 


(4.1.8) 


Eficiencia termica, P: para un intercambiador tubo-carcasa, la eficiencia de 
temperaturas del fluido que circula por los tubos, P, se conoce como eficiencia termica. 
Se define como la relacion entre la variacion de temperatura del fluido de los tubos 
respecto a la temperatura de entrada de ambos fluidos. 


P = 


h~ti 

T x -t x 


(4.1.9) 


donde 

ti y t 2 son las temperaturas de entrada y salida de los tubos, respectivamente 
Ti y Tzson las temperaturas de entrada y salida de la carcasa, respectivamente 

Se puede deducir que 


P = 


C t 


£ 


(4.1.10) 


Relacion de capacidades calorificas, R: para un intercambiador tubo-carcasa, R es la 
relacion de capacidades calorificas del fluido de los tubos respecto al que circula por la 
carcasa. 


R = 


(_ 

C s 


(4.1.11) 


NTU t : para un intercambiador tubo-carcasa, NTU t se define como la relacion entre la 
conductividad total y la capacidad calorifica del fluido que circula por los tubos. 


NTU t = 


UA 

cT 


(4.1.12) 
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5.1.2.3 Diferencia de temperatura media logaritmicay factor de correccion 

La diferencia de temperatura media logaritmica (LMTD) es el principal factor de 
transferencia de calor cuando las corrientes de los dos fluidos estan en contracorriente. 
Sin embargo, debido a diversos factores, los intercambiadores se disenan en 
configuraciones distintas al flujo contracorriente. La diferencia de temperatura media 
real en esos casos difiere de la LMTD en un cierto factor dependiente de la disposicion 
de los flujos y las temperaturas finales. Se denomina factor de correccion de la diferencia 
de temperatura media logaritmica, F. 


q = UAAi m = UAFAt lm 


(4.1.13) 


La expresion para la diferencia de temperatura media logaritmica es 


LMTD = Ar, m = 


At, - A r z 


ln( A/i/AL) 


(4.1.14) 


con 



Tambien es posible su calculo mediante el siguiente nomograma 
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4- 300 

I 4i 

4- 400 4-250 

- 4 - 



A/, Af 2 

GTD LMTD LTD 


Figura 58. Nomograma para el calculo de la LMTD. 

Factor de correccion, F. 

El factor de correccion depende de la disposicion de los fluidos, R y P. Se puede calcular 
analfticamente, pero existen graficas predeterminadas para facilitar su calculo [18], Si el 
factor de correccion es menor que 0.8 se recomienda cambiar de configuracion, 
aumentando el numero de pasos, para hacer el intercambiador mas eficiente. 

Las ecuaciones analiticas para su determinacion son: 
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s= 


(T C -T C ) 

' oul ‘ in > 

(T h - T c ) 

v in in ' 


(T h- T h ) 

' 1 in 1 out ; 

( T C -T c ) 

' * oul 1 in ' 



1 - 


rs- n ,w s 


s- i 


R- 


rs- n^s 
s- 1 


(4.1.15) 


(4.1.16) 


(4.1.17) 



(4.1.18) 


siendo Ns el numero de pasos de los tubos por la carcasa. 

Tambien se puede obtener mediante graficas, como las que aparecen a continuacion. 
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Figura 59. Graficas para obtener el factor de correccion, F. 
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En general, el metodo e-NTU se utiliza para el diseno de intercambiadores compactos y 
el metodo LMTD para el diseno de intercambiadores tubo-carcasa. Cualquiera de los 
metodos da lugar a identicos resultados. 

Es posible encontrar mas detalles de los metodos de calculo para la eficiencia termica 
en [1] y [19]. 

5.1.2.4 W-P 

En este metodo se introduce un nuevo parametro, *4J, que representa la relacion entre 
la diferencia de temperatura media real y la diferencia de temperatura a la entrada de 
ambos fluidos. 


v = 


A/, 


^lii ^c.i 


A/„, 

Tx —t\ 


La transferencia de calor viene dada por 


(4.1.19) 


q = UAyu M = UAyiT, -I,) (4 J 20| 

Cualquiera de los cuatro metodos se puede utilizar para intercambiadores tubo-carcasa. 
Los valores de eficiencias termicas se obtienen de distintas graficas, en funcion de los 
parametros adimensionales R, P o NTU. 

5.1.3 Coeficiente de transferencia de calor 

Es una medida de la conductividad termica. En los intercambiadores de calor existe un 
coeficiente de transferencia del interior de los tubos, y otro del exterior de los tubos. 

5.1.3.1 Coeficiente de conveccion de los tubos, ht 

Es el coeficiente que indica como de buena es la conductividad del fluido que circula por 
el interior de los tubos con la pared de los mismos. Tambien conocido como coeficiente 
de pelicula. Se mide en W/m 2 K. 

Se puede definir como 



NuA- 



(4.1.21) 


donde 

Nu es el numero de Nusselt en el interior del tubo 
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k es la conductividad termica del fluido que circula por los tubos 
Du es el diametro interno del tubo 

5.1.3.2 Coeficiente de convection de la carcasa, h s (shell) 

Del mismo modo, se define el coeficiente de conveccion de la carcasa para el fluido que 
circula el la, es decir, el exterior de los tubos. 

, Nu* 

/?s=- 

A (4.1.21) 


donde 

Nu es el numero de Nusselt en el exterior de los tubos 
k es la conductividad termica del fluido que circula por la carcasa 
Dh es el diametro hidraulico entre los tubos 

5.1.3.3 Coeficiente de transferencia de color global, U 

Mide la capacidad de transferencia de calor de un fluido a otro en este caso. Se define 
como la inversa de la resistencia termica, se mide en W/m 2 K. 


U = 


1 


t i , A 


/A * 

AA + 5T*‘ + 


A lnp/Ai) 


k 


w 


+R ‘- + i) 


(4.1.22) 


donde 

D t es el diametro exterior de los tubos 

Dues el diametro interior de los tubos 

h t es el coeficiente de conveccion en el interior de los tubos 

h s es el coeficiente de conveccion en el exterior de los tubos 

Rf t e s el factor de fouling en el interior de los tubos 

Rf S es el factor de fouling en el exterior de los tubos 

k w es la conductividad termica del material del que estan fabricados los tubos 


5.2 METODOSDE DISENO 
5.2.1 Metodo Kern 

Es un metodo que se ha utilizado en la industria durante muchos anos. Las correlaciones 
para la transferencia de calor y la perdida de carga se obtuvieron de intercambiadores 
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estandar con un corte del deflector del 25% (que es el mejor diseno en muchos casos) 

[ 20 ], 

Para la transferencia de calor, la prediccion varia entre un valor ligeramente superior y 
uno mucho inferior al real. Para la perdida de carga se obtienen valores con errores 
superiores al 100% del lado de la seguridad. 

En la actualidad no se utiliza como metodo de diseno debido a los elevados errores en 
el calculo de la perdida de carga, lo que puede llevar a intercambiadores con baja 
transferencia de calor respecto a la que se podria obtener. 

5.2.2 Metodo Bell-Delaware 

Es un metodo para calcular la perdida de carga en la carcasa asi como el coeficiente 
convectivo del lado de la carcasa de los intercambiadores tubo-carcasa. Debe su nombre 
a que el metodo se desarrollo en la universidad de Delaware y uno de los principales 
investigadores fue Kenneth J. Bell, de ahi que tome el nombre de Bell-Delaware. 

Se utilizan correlaciones empiricas para el coeficiente convectivo de la carcasa y el factor 
de friccion en flujos perpendiculares a un haz de tubos, son denominadas correlaciones 
ideales para un haz de tubos [11], [17] y [21]. En los intercambiadores con deflectores 
transversales este flujo solamente se da en determinadas partes del intercambiador, las 
secciones que se encuentran entre los deflectores. En las ventanas de los deflectores el 
flujo es parcialmente paralelo a los tubos. Ademas, solo una parte del flujo que circula 
por la carcasa sigue la corriente principal, ya que se producen fugas entre los 
deflectores, los tubos y la carcasa. Estas fugas estan consideradas en un conjunto de 
factores de correccion empiricos, que se aplican al coeficiente convectivo y a la perdida 
de carga. 

5.2.3 Software comerciales 

Existen multitud de software comerciales para el diseno de intercambiadores tubo- 
carcasa entre los que destacan HTFS/Aspen (www.aspentech.com), B-JAC 
(www.aspentech.com), ProMax (www.bre.com), HTRI Xchanger Suite (www.htri- 
net.com) y HEXTRAN (www.simsci-esscor.com). 
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Figura 60. Software de Aspentech, para el calculo de intercambiadores de color. 

5.3 METODO BELL-DELAWARE DETALLADO 

Es el metodo utilizado en este trabajo, consiste en la obtencion del coeficiente de 
conveccion en la carcasa y de la perdida de carga en la carcasa ideales, y la aplicacion de 
unos factores de correccion dependientes de la geometria. En ellos se tienen en cuenta 
las distintas corrientes y fugas no deseadas que se producen en el interior de la carcasa, 
disminuyendo la eficiencia respecto al caso ideal. 

En nuestro caso partimos de unos datos geometricos iniciales: 

Dti: diametro interior de los tubos 
D t : diametro exterior de los tubos 

L tp : es la separacion entre dos tubos consecutivos (tube pitch) 

Be: corte de los deflectores (en porcentaje del diametro de la carcasa) 
disposicion de los tubos: tipo de cabezal, separacion entre tubos y layout 
Rf t : factor de fouling en el interior de los tubos 
Rf S : factor de fouling en el exterior de los tubos 
k w : conductividad del material de los tubos 
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5.3.1 Calculo de parametros principales 

Es necesario determinar diversos parametros geometricos, el orden de su obtencion 
sera funcion de la restriccion de la que se parta: 


N tt : es el numero total de tubos que componen el intercambiador. Depende del 
diametro de la carcasa y la disposicion de los tubos. Se puede obtener de la siguiente 
ecuacion 


donde 



( D s~ 

l ”h D x I 


(4.3.1) 


m = (m + l)/(K{) Vn 


(4.3.2) 


Dot/: es el diametro del cfrculo que circunscribe todos los tubos del haz de tubos. 
Depende del numero de tubos y de su disposicion. Sinnott [22] plantea la siguiente 
ecuacion para su calculo. 

D M = ZW*,) 1 '" ,4.3.3) 


Los valores de Ki, n, miy m 2 se pueden obtener de las siguientes tablas: 


tube bundle type 

m 

m 2 

fixed or U-tube 

8 

0.01 

outside packmg 

39 

0 

split-rmg 

44 

0.025 

pull-through 

87 

0.007 


Tabla 7. Valores de las constantes rm y m 2 para la obtencion de Lbb- 


K\ n 


passes 

triangular 

square 

triangular 

square 

1 

0.319 

0.215 

2.142 

2.207 

2 

0.249 

0.156 

2.207 

2.291 

4 

0.175 

0.158 

2.285 

2.263 

6 

0.0743 

0.0402 

2.499 

2.617 

8 

0.0365 

0.0331 

2.675 

2.643 


Tabla 8. Constantes para la ecuacion de Sinnott [22] para una relacion de L tp /Dt= 1.25. 
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Dcti: es el diametro de la circunferencia que pasa por los centros de los tubos del haz mas 
externos 


Ail - Ami (4.3.4) 

L t p,eff: es la separacion de los tubos respecto a la direccion de la corriente y depende de 
la disposicion de los tubos 


L, peff = L t p for 30" and 90" layouts 

= 0.707L, p for 45" layouts ^ 3 

siendo L tp la separacion real entre los tubos (tube pitch). 

Lbb: es la holgura entre el haz de tubos y la carcasa. 

Ab = A - Am] (4.3.6) 


L ts : es el espesor de la placa tubular (tubesheet thickness), debe ser mayor que 25 mm 
para evitar fugas. Depende del diametro de la carcasa del siguiente modo 


As = °iA 


(4.3.7) 


L tt : es la longitud total de los tubos, desde la entrada al intercambiador a la salida. 

L ta : es la longitud de los tubos en la que se produce transferencia de calor, es decir, la 
longitud total de los tubos menos la parte de los tubos que se encuentra en el interior 
de la placa tubular. 


L = L + 2L 

•^tt -Ha 1 Hs 


(4.3.8) 


Rb S : es la relacion entre la separacion de los deflectores y el diametro de la carcasa. Suele 
tomar valores entre 0.2 y 1. 

Lb C : es la separacion entre los deflectores, se puede obtener una vez conocido Rbs 
mediante 


■^bs Ac'A (4.3.9) 

Nb: es el numero de deflectores, se puede calcular una vez conocida la longitud del 
intercambiador y la separacion entre los deflectores. 
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L* ~ (A + L o)Kc 


+1 


"be 


(4.3.10) 


v t : es la velocidad del fluido en los tubos 




v x~ 


XpPi N « 


(4.3.11) 

En cuanto a la geometria relacionada con los deflectores, encontramos: 

0d S : es el angulo subtendido por el corte del deflector y el diametro interior de la carcasa 


0 ds =2 cos 


-i 



(4.3.12) 


0cti: es el angulo subtendido por el corte de deflector y el diametro que atraviesa los 
centros de los tubos mas externos del haz de tubos (D c ti) 



(4.3.13) 
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Figura 61. Parametros geometricos de un haz de tubos. 


S m : es el area existente entre dos deflectores consecutivos en la que el flujo es 
perpendicular a los tubos 



+ -^-(/.,„-</) 


Se puede obtener de la misma la velocidad del fluido en la carcasa 


PsS m 


(4.3.14) 


(4.3.15) 


Siendo M s el caudal masico del fluido que circula por la carcasa y p s su densidad. 

F w : es la fraccion del numero de tubos que se encuentran en la ventana del deflector 

F _ Bgi sin 9^, 

2k (4.3.16) 
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Se puede definir a partir de F w , N tw , que es el numero de tubos en la ventana del 
deflector. 


Mw = N t F w 


(4.3.17) 


La fraccion de tubos que se encuentran en flujo perpendicular, F c , es por tanto 

Fc = 1“2F W (4.3.18) 

Se pueden definir tambien el numero de filas de tubos en flujo perpendicular, N tC c, asi 
como el numero de filas de tubos en la ventana del deflector, N tC w. 


N 


let 




(4.3.19) 


Mew 


08 DA D s -D C fl 

L 100 2 


(4.3.20) 


5.3.2 Areas de paso 

Debido a la disposicion de los tubos y los deflectores quedan determinadas las siguientes 
areas caracteristicas. 

5.3.2. 1 Area de flujo perpendicular 

S m : es el area minima de paso existente entre dos deflectores consecutivos, en la que el 
flujo es perpendicular a los tubos 





(4.3.21) 
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5.3.2.2 Area neta de la ventana del deflector 
S wg : es el area de la ventana del deflector 



(4.3.22) 


Swt: es el area de la ventana del deflector ocupada por los tubos 


S„ = N,F^d 2 

4 


(4.3.23) 


Quedando el area neta en la ventana del deflector, S W/ como la diferencia entre el area 
de la ventana y el area ocupada por los tubos. 



(4.3.24) 


5.3.2 . 3 Area entre los deflectores y los tubos 

Los agujeros en los deflectores tienen cierta holgura con los tubos, lo que permite a 
parte del fluido que circula por la carcasa pasar a traves del deflector. 

El area total de holgura entre los tubos y el deflector para un deflector viene dada por 


S tb ~ O.STf/VtoW/O + F c ) 


(4.3.25) 


siendo F c la fraccion de tubos que se encuentran en flujo perpendicular, n t el numero 
total de tubos y 6tb la holgura entre los tubos y el deflector. 

La holgura entre tubos y deflector, 6tb, se encuentra en las especificaciones de TEMA. 
Depende del diametro de los tubos y la separacion entre deflectores. 
Para tubos con un diametro superior a 1.25 in. (31.75 mm), 6 t btoma el valor de 0.4mm. 
Para tubos de un diametro igual o inferior a 1.25 in., la holgura depende de la mayor 
longitud de tubo sin sujecion, que suelen ser los tubos que pasan a traves de las ventanas 
de los deflectores. Es la longitud de dos veces la separacion entre deflectores centrales. 
Si esta longitud es menor que 3 ft. (914.4 mm), la holgura 6 t bsera 0.4 mm, en caso 
contrario sera de 0.2mm. 
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5.3.2.4 Area entre la carcasay los deflectores 

Es el area que se encuentra entre los deflectores y la carcasa debido a la holgura 
existente entre ambos, viene determinada por 


2n - Q& \ 

" jT (4.3.26) 

Siendo 5 S b la holgura entre la carcasa y los deflectores. Tiene que ver con las tolerancias 
en la fabricacion. La holgura media especificada en TEMA es una funcion linear del 
diametro de la carcasa. 


$sb — xD$$sb 


&sb (mm) = 0.8 + 0.002D S (mm) (4 3 27) 

Se suele anadir un coeficiente de seguridad de +0.75 mm, para tener en cuenta la 
tolerancia en la redondez de la carcasa y los deflectores. 

5.3.2.5 Area entre el haz de tubosy la carcasa 

Es el area entre los tubos exteriores del haz de tubos y la carcasa 

*^b = (A — ) (4.3.28) 

siendo Lbc la separacion entre dos deflectores consecutivos. 

5.3.3 Viscosidad de los fluidos 

La viscosidad de los fluidos varia con la temperatura, por lo que es necesario obtener los 
valores de viscosidad de ambos fluidos a la temperatura de la pared de los tubos, p tw y 
p S w. Estos valores se utilizaran para calcular los factores de correccion 4) t y 4> s , 
respectivamente. 


«k)" 



Y siendo la temperatura de la pared, T w 



+ 


T -T 

/ s.av M.i 


av 


l + /?, //?<, 


(4.3.29) 


(4.3.30) 
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con T s ,a V y Tt,avla temperatura media del fluido que circula por la carcasa y por los tubos, 
respectivamente. 

Se pueden consultar los factores de conversion entre distintas unidades de viscosidad 
en la siguiente tabla: 


VISCOSITY CONVERSION FACTORS 



centipoises 

qm 

lb 

lb-sec . 

lb 

kg-sec 


cm-sec 

ft-sec 

if 

fl-hr 

m 5 

cent! poises 

i 

.01 

.000672 

0000209 

142 

000102 

gn 

poises =r —- 

cax-scc 

100 

i 

.0672 

00209 

242 

0102 

lb 

It-sec 

1468 

14.88 

1 

.0311 

3600 

.1517 

lb-sec 

ft* 

47900 

479 

32.2 

1 

116000 

488 

lb 

It-hr 

413 

00413 

.000278 

00000864 

1 

.0000421 

kg-sec 

m* 

9810 

98.1 

659 

2048 

23730 

1 


Tabla 9. Factores de conversion de unidades para la viscosidad. 


El valor de la viscosidad cinematica, se puede obtener de la ecuacion de Walther [23] 

logio[logio(/' + X)] = A - B \og l0 (T) ( 4 .3. 31) 

siendo X una constante, (0.7 cSt), a partir de dos valores conocidos de viscosidad 
cinematica a distintas temperaturas, pudiendo obtener los parametros Ay B. 

A partir del mismo, se puede obtener el valor de la viscosidad dinamica, conociendo la 
densidad del fluido. 


V = 


p 

p 


(4.3.32) 


TEMA proporciona diversas graficas, ademas de un diagrama acompanado de una tabla, 
a partir de las cuales se puede obtener la viscosidad a distintas temperaturas para 
diversos fluidos. 
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VISCOSITY —TEMPERATURE RELATIONSHIP FOR PETROLEUM OILS 

LINES Of CONSTANT DEOEEES AM. CHARACTERIZATION FACTOR, K = 10.0 

Rei: Watson. Wien & Murphy. Industrial & Engineering Chemistry 26.605-9 (1936) 



VISCOSITY — TEMPERATURE RELATIONSHIP FOR PETROLEUM OILS 

LINES or CONSTANT DEGREES A.P.I. CHARACTERIZATION FACTOR, K = 11.0 

Hot: Watson. Wien & Murphy. Industrial & Engineering Chemistry 28.605-9 (1936) 
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VISCOSITY — TEMPERATURE RELATIONSHIP FOR PETROLEUM OILS 

LINES OF CONSTANT OEGREES A.P.I. CHARACTERIZATION FACTOR, K = ll.t 

Hell Watson. Wien 6 Murphy, Industrial & Engineering Chemistry 28.605-9 (1936) 



VISCOSITY — TEMPERATURE RELATIONSHIP FOR PETROLEUM OILS 

UNIS OF CONSTANT OEGREES A.f.l. CHARACTERIZATION FACTOR, K = 1Z.S 

Ref: Watson, Wien & Murphy, Industrial 4 Engineering Chemistry 28.605-9 (1936) 



Figura 62. Graficas de la viscosidad en funcion de la temperatura para derivados del petroteo, 
TEMA [4], 
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No. 

Liquid 

X 

Y 

No. 

Liquid 

X 

Y 

1 

Aoataldehyde 

15.2 

4.8 

56 

Freon-22 

17 2 

4.7 

2 

Acetic add. 100% 

12.1 

14.2 

57 

Freon-113 

12.6 

11.4 

a 

Acetic add. 70 % 

9.; 

17.0 

58 

Glycerol. 100% 

2.0 

30.0 

4 

Acetic anhydride 

12.7 

12.8 

59 

Glycerol. 50% 

6.9 

19.6 

8 

Aoctone, 100% 

14.5 

7.2 

60 

Heptene 

14.1 

8.4 

0 

A extone, 35 % 

7.9 

15.0 

61 

Hexane 

14.7 

7.0 

7 

Allyl alcohol 

10.2 

14.3 

62 ! 

Hydrochloric acid, 31.5% 

13.0 

16.6 

8 

Ammonia, 100% 

12.6 

3.0 

63 

laobutyi alcohol 

7.1 

18.0 

9 

Ammonia, 20 % 

10.1 

13.9 

64 

Iaobutyric acid 

12.2 

14.4 

10 

Amyl acetate 

11.8 

12.5 

65 

Iaopropyl alcohol 

8.2 

16.0 

11 

Amyl alcohol 

7.5 

18.4 

66 

Keroaene 

10.2 

16.9 

12 

Aniline 

8.1 

18.7 

67 

Linaeed oil, raw 

7.5 

27.2 

13 

AnUole 

12.3 

13.5 

08 

Mercury 

18.4 

16.4 

14 

Araenic trichloride 

13.9 

14.5 

69 

Methanol. 100% 

12.4 

10.5 

15 

Beniene 

12.5 

10.9 

70 

Methanol, 90% 

12.3 

11.8 

1« 

Brine, CaClt, 25% 

6.6 

15.9 

71 

Methanol. 40% 

7.8 

15.5 

17 

Brine, NeCl, 25% 

10.2 

16 6 

72 

Methyl acetate 

14.2 

8.2 

18 

Bromine 

14.2 

13.2 

73 

Methyl chloride 

15.0 

3.8 

19 

Bromotoluenc 

20.0 

15.9 

74 

Methyl ethyl ketono 

13.9 

8.6 

20 

Butyl acetate 

12.3 

11.0 

75 

Naphthalene 

7.9 

18.1 

21 

Butyl aleohol 

8.6 

17.2 

78 

Nitric acid. 95% 

12.8 

13.8 

23 

Butyric acid 

12.1 

15.3 

77 

Nitric acid. 60% 

10.8 

17.0 

23 

Carbon dioxide 

11.6 

0.3 

78 

Nitrobenxene 

10.6 

16 2 

24 

Carbon disulphide 

16.1 

7.5 

79 

Nitrotoluene 

11.0 

17.0 

24 

Carbon tetrachloride 

12.7 

13.1 

80 

Octane 

13.7 

10.0 

20 

Chlorobenscne 

12.3 

12.4 

81 

Octyl alcohol 

6.6 

21.1 

27 

Chloroform 

14.4 

10.2 

82 

Pent achl oroethane 

10.9 

17.3 

21 

ChloraauKonic add 

11.2 

18.1 

63 

Pentane 

14.9 

5.2 

29 

Chlorololuene. ortho 

13.0 

13.3 

84 

Phenol 

6.9 

20.8 

30 

Chlorotoluene. Beta 

13.3 

12.S 

85 

Phoephorua tribromide 

13.8 

16.7 

31 

Cblorotoluene para 

13.3 

12.5 

86 

Phoephorua trichloride 

16.2 

10.9 

32 

Creaoi, meta 

2.5 

20.8 

87 

Propionic add 

12.8 

13.8 

33 

Cyclohexanol 

2.9 

24.3 

88 

Propyl alcohol 

9.1 

16.5 

34 

Dibromoelhane 

12.7 

15.8 

89 

Propyl bromide 

14.5 

9.0 

35 

Diehl oroethane 

13 2 

12.2 

90 

Propyl chloride 

14.4 

7.5 

36 

Dichloromethane 

14.6 

8.9 

91 

Propyl iodida 

14.1 

11.6 

37 

Diethyl oxalate 

11.0 

16.4 

92 

Sodium 

16.4 

13.9 

38 

Dimethyl oxalate 

12.3 

15.8 

93 

Sodium hydroxide. 50% 

3.2 

25.8 

39 

Diphenyl 

12.0 

18.3 

94 

Stannic chloride 

13.5 

12.8 

40 

Di propyl oxalate 

10.3 

17.7 

95 

Sulphur dioxide 

15.2 

7.1 

41 

Ethyl acetate 

13.7 

9.1 

96 

Sulphuric acid, 110% 

7.2 

27.4 

42 

Ethyl alcohol, 100% 

10.5 

13.8 

97 

Sulphuric acid, 98% 

7.0 

24.8 

43 

Ethyl alcohol. 85 7, 

9.8 

14.3 

98 

8ulpburic acid, 60% 

10.2 

21.3 

44 

Ethyl alcohol. 40% 

6.5 

16.6 

99 

Sulphuryl chloride 

15.2 

12.4 

45 

Ethyl beniene 

13.2 

11.6 

100 

Tetrachloroetbane 

11 9 

15.7 

46 

Ethyl bromide 

14.S 

8.1 

101 

Tetracbloroethylene 

14.2 

12.7 

47 

Ethyl chloride 

14.8 

6.0 

102 

Titanium tetrachloride 

14.4 

12.3 

48 

Ethyl ether 

14.5 

5.3 

103 

Toluene 

13.7 

10.4 

48 

Ethyl formate 

14.2 

8.4 

104 

Trichloroethylene 

14.6 

10.5 

‘ 50 

Ethyl iodide 

14.7 

10.3 

105 

Turpentine 

11.5 

14.9 

SI 

Ethylene glycol 

6.0 

23.6 

106 

Vinyl acetate 

14.0 

8.8 

52 

Formic acid 

10.7 

15.8 

107 

Water 

10.2 

13.0 

S3 

Freon-11 

14.4 

9.0 

108 

Xylene, ortho 

13.5 

12.1 

54 

Freon-12 

16.8 

5.6 

100 

Xylene, met* 

13.9 

10.6 

55 

Freon-21 

15.7 

7 5 

110 

Xylene, para 

13.9 

10.9 


Tabla 10. Tabla adjunta al diagrama de la Figura 63. Diagrama para obtener la viscosldad a 
diversas temperaturas para distintos fluldos . 
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Temp«rature 
Oeg.C. Deg.E 
200 < 

1,0 J 3^0 


340 
J-330 
160 - • 320 


310 
300 
290 
280 
210 
260 
250 
■•240 
110 - • 230 


150 
140 • 
130 - 
120 


100 
90- 
80- 
70 


30 * 


20 


10 
0 - 
-10 - 


-20 - 
“30 


220 
2(0 
K200 
190 
180 
• 170 
. • (60 
- 150 
60 4 1+0 
130 
30+ 120 
110 

40 *L 100 


• 90 
80 
+ 70 
60 


50 

40 

30 

20 

10 


0 
• -10 
• -20 


Viscosity 

C«ntfpois«s 



: 6 o 

- 50 

- 40 < 

’ 30 * 

n 

r 20 o 

(SI 





- 0.6 

- 05 

- Q4 

- 0.3 


- 0.2 



m 
u » 


O 


0 


o 

> 


> 

3 

0 


Figura 63. Diagrama para obtener la viscosidad a diversas temperaturas para distintos fluidos 
14]. 


5.3.4 Factores de correction 

Son los factores utilizados en el metodo Bell-Delaware para tener en consideration las 
diversas corrientes y fugas no deseadas que se producen en el interior de la carcasa 
debido a la geometna. Estos factores se aplican a los valores obtenidos para un haz de 
tubos ideal para obtener los valores del intercambiador real. 
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El coeficiente de transferencia de calordel fluido que circula por la carcasa, h s , se obtiene 
mediante 


K = WAW = 


(4.3.33) 


donde 

J c : es el factor de correccion para el corte del deflector y la separacion entre 
deflectores. Tiene en cuenta que el flujo en la ventana del deflector no es 
perpendicular como en el intercambiador ideal. 

Ji: es el factor de correccion para las fugas, tanto entre la carcasa y los deflectores 
como entre los tubos y los deflectores. 

Jb: es el factor de correccion para las corrientes que se producen entre el haz de tubos 
y la carcasa. 

J r : es el factor de correccion para el gradiente adverso de temperaturas que se produce 
cuando el flujo es laminar. 

J s : es el factor de correccion para la separacion diferente en las secciones de entrada y 
salida con respecto a la separacion de los deflectores centrales. 

*S , 4 , 341 


siendo jsi 


Ju= a l\ 


_L33J 

vaJ 


w 




(4.3.35) 


^3 

1 4- 0.14(7te s ) a4 

Siendo Re s el numero de Reynolds y Pr s el numero de Prandtl, del fluido que circula por 
la carcasa. 


Pr s 


ks 


Re s 


Ps^t v s 

Us 


(4.3.36) 

(4.3.37) 
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Los parametros a (ai, a 2 , a 3 , a 4 > dependen del Reynolds del fluido de la carcasa y de la 
disposicion de los tubos (layout angle) se obtienen de la siguiente tabla 


layout angle 

Reynolds number 

a\ 

02 


a* 


*2 

h 

*4 

30° 

10 5 -10 4 

0.321 

-0.388 

1.450 

0.519 

0.372 

-0.123 

7.000 

0.500 


10 4 -10 3 

0.321 

-0.388 



0.486 

-0.152 




10 3 —10 2 

0.593 

-0.477 



4.570 

-0.476 




10 2 —10 1 

1.360 

-0.657 



45.10 

-0.973 




<10 

1.400 

-0.667 



48.00 

- 1.000 



45° 

10 5 -10 4 

0.370 

-0.396 

1.930 

0.500 

0.303 

-0.126 

6.590 

0.520 


10 4 -10 3 

0.370 

-0.396 



0.333 

-0.136 




10 3 -10 2 

0.730 

-0.500 



3.500 

-0.476 




10 2 -10‘ 

0.498 

-0.656 



26.20 

-0.913 




<10 

1.550 

-0.667 



32.00 

- 1.000 



90° 

10 5 -10 4 

0.370 

-0.395 

1.187 

0.370 

0.3910 

-0.148 

6.300 

0.378 


10 4 —10 3 

0.107 

-0.266 



0.0815 

+0.022 




10 3 -10 2 

0.408 

-0.460 



6.0900 

-0.602 




lcr’-io 1 

0.900 

-0.631 



32.100 

-0.963 




<10 

0.970 

-0.667 



35.000 

- 1.000 




Figura 64. Parametros para el calculo de j s i yfsi- 


Existen tres factores de correccion para la perdida de carga: 


Rt,: es el factor de correccion para las corrientes que se producen entre el haz de tubos 
y la carcasa. 


Ri: es el factor de correccion para las fugas, tanto entre la carcasa y los deflectores como 
entre los tubos y los deflectores. 


R s : es el factor de correccion para la separacion diferente en las secciones de entrada y 
salida con respecto a la separacion de los deflectores centrales. 

5.3.4.1 Factor de correccion de flujo por la ventana del deflector 

El factor de correccion J c tiene en consideracion el flujo que circula por las ventanas de 
los deflectores, que no es perpendicular a los tubos. Depende del numero de tubos en 
las ventanas respecto al numero de tubos en flujo perpendicular, lo que viene 
determinado por el corte del deflector. Be, y la relacion D s /D c ti. 
La correlacion depende de un solo parametro, F c , la fraccion de tubos en flujo 
perpendicular. Para cortes del deflector entre 15% y 45%, J c es: 


Jc = 0.55 + 0.72 F c 


(4.3.38) 


5.3.4.2 Factores de correccion de las fugas en los deflectores 

Los factores de correccion Jiy Ri expresan los efectos de las fugas entre deflectores y 
tubos y entre deflectores y carcasa. Dependen de las siguientes relaciones de areas: 
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S s b 




siendo S s b, Stb y S m las areas entre carcasa y deflectores, entre tubos y deflectores y el 
area de paso entre dos deflectores consecutivos, definidas anteriormente. 

Las correlaciones para ambos factores de correccion son: 


k = 0.44(1 - r s ) + [1 - 0.44(1 - r s )] exp(-2.2r,) (4 3 3g) 

R l = exp (-1.33(1 + r s )(r,) p ] 


(4.3.40) 


donde 


p = 0.8- 0.15(1 + r s ) 


(4.3.41) 


5.3.4.3 Factores de correccion del flujo entre el haz de tubosy la carcasa 

Los factores de correccion Jb y Rb representan los efectos de las corrientes que circulan 
entre la carcasa y el haz de tubos. Dependen de la relacion Sb/S m y de la cantidad de 
pares de tiras de sellado (sealing strips). Es necesaria la introduccion de la relacion r ss , 
que es la relacion entre el numero de pares de tiras de sellado y el numero de filas de 
tubos en flujo perpendicular, N tC c. 



(4.3.42) 


Las correlaciones para Jb son: 


J B = exp[-Cj(S b /S M )(l - ^2r^)\ 
Jb = 10 


rss < 0.5 



donde 


Cj = 1.35 Re < 100 

= 1.25 Re > 100 
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Las correlaciones para Rbson: 

R b = exp\-C R (S b /S m )(l - $2rss) | 
R b = 1.0 


r ss < 0.5 

r ss ^;0.5 (4.3.44) 


donde 

C R = 4.5 Re < 100 

= 3.7 Re > 100 

5.3.4.4 Factores de correction de la separation desigual de los deflectores 

Los factores de correccion J s y R s dependen de la separacion de los deflectores de 
entrada y salida, de los centrales y del numero de deflectores. 

El factor J s sigue la correlacion: 


(/v.-n+l 

(4) 

l-n 

1 

+ 1 

[4’ 

(N b -!) + (/*- 


M 

4) 


(4.3.45) 


con 

n — 0.6 Re > 100 

n = 5 Re < 100 

El factor R s se puede calcular mediante: 


/ \2-n f ^2-n 


R.= 


I* 

\ L \ J 


+ 


V 


(43.46) 


con 

n — 0.2 Re > 100 

n = 1.0 Re < 100 
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U* y L 0 * son las relaciones de la separacion de los deflectores de entrada y salida 
respecto a los centrales. 



K: 



Siendo Lbi la separacion del deflector de entrada y Lbo la del de salida. 



Figura 53. Separacion de los deflectores en la entrada y en la salida. 

5.3.4.5 Factor de correccion de flujo laminar 

El factor de correccion, J r , tiene en cuenta que en el caso del flujo laminar, el coeficiente 
de transferencia de calor desciende aguas abajo. La correlacion depende del numero de 
filas de tubos cruzadas en todo el intercambiador, N c t: 

N ct = ( N tcc + N tcw)(N b + 1) (4.3.47) 

Las correlaciones para el calculo de J r dependen del Reynolds de la carcasa: 

h = (10/N c ,) a 18 Re < 20 

Jr = 1.0 Re > 100 (4 . 3 . 48) 

Para los valores de Reynolds entre 20 y 100 se realiza interpolacion linear. 

5.3.5 Coeficientes de conveccion 

5.3.5.1 Coeficiente de conveccion en los tubos 

El coeficiente de conveccion de los tubos se puede calcular de las siguientes ecuaciones, 
en funcion del Reynolds [17]: 
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Si el Reynolds en el interior de los tubos es menor que 2100, h t se puede obtener de la 
ecuacion empirica de Sider-Tate [24] 


M 

*, 


1.86 


Re, Pr, 




o.s 


Para valores del Reynolds mayores de 10000, 
modificada por McAdams [25] 


Pr, 


1/3 


V 0.I4 


V Pw 


(4.3.49a) 

se utiliza la ecuacion de Sider-Tate 


M 

*i 


0.027 Re^Pr/' 3 



\0.14 

J 


(4.3.49b) 


Mientras que para los valores intermedios se puede utilizar la formula de Kern [20] 



(4.3.49c) 


Siendo Re t el valor del numero de Reynolds en el interior de los tubos. 


Re t = p x vpjn x 

5.3.5.2 Coeficiente de convection en la carcasa 


(4.3.50) 


Se obtiene mediante el coeficiente ideal y los factores de correccion, como se ha 
explicado con anterioridad. 


K = hjJJWA = 


(4.3.51) 


5.3.6 Perdidas de carga 

5.3.6.1 Perdida de carga en los tubos 

La perdida de carga en los tubos depende de la velocidad del fluido en su interior, las 
caracteristicas del fluido y el factor de friccion de los tubos. Siendo el factor de friccion 

f, = 


(4.3.52) 
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Diseno 



Los valores de Kt, mt y ac dependen del numero de Reynolds, tomando los valores de 
16, -ly 0.35 respectivamente para los Reynolds iguales o inferiores a 2100 y 0.0791, 
-0.25 y 0.14 respectivamente para Reynolds superiores. 



| 2.5p t v t 2 (NJ{NJ 


(4.3.53) 


5.3.62 Perdida de carga en la carcasa 

La perdida de carga en la carcasa depende de numerosos factores, y se puede expresar 
del siguiente modo [26] y [27] 


AP, = N^AP^ + [(JV b - 1)V?, + (1 + JV ra /N KC Vf b XJJV ! AP bi 


(4.3.54) 


Donde APbi es la perdida de carga en el flujo perpendicular de un haz ideal, AP w i es la 
perdida de carga en la ventana del deflector para un haz de tubos ideal equivalente y Ri, 
Rby Rsson los factores de correccion para la perdida de carga. N tC wy N tC c son el numero 
de filas de tubos en la ventana del deflector y el numero de filas en flujo perpendicular 
real en una seccion, respectivamente. No se incluyen las perdidas de carga en las 
boquillas de entrada y salida, ya que suelen estar incluidas en las especificaciones. 

La perdida de carga en el flujo perpendicular en un haz de tubos ideal, APbi, se calcula 
mediante: 



(4.3.55) 


Mientras que la perdida de carga en la ventana del deflector para un haz de tubos ideal, 
APwi, depende del Reynolds del fluido que circula por la carcasa. 
Si este es mayor que 100, APwies 


AP W1 = (l + 0.3iV tcw : p s (vf 



(4.3.56) 
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En caso contrario 


AP wi = 26 x 10 J 



^tcw A)C 

Jsjs m 

K - D < (Dj\ 



(S m \ 

+ 1 

ml 


w 


(4.3.57) 


Siendo N tw el numero de tubos en la ventana del deflector, S w el area de paso neta en 
una ventana de deflector, Sm el area minima de paso para el flujo perpendicular y D w el 
diametro hidraulico equivalente para ventana de deflector segmentado. 


Du, = 


45 w 


7 ldN lw + kD£J2k 


ds i 


(4.3.58) 


5.3.7 Precision del metodo Bell-Delaware 

A pesar de que este metodo es considerado el mejor en gran parte de la literatura, no 
es totalmente preciso. Existen diversas comparativas entre el metodo de Bell-Delaware 
y metodos como el de analisis de corrientes o el Tinker [28], [29], [30], [26], 
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6. APLICACION DE MATLAB 
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En este trabajo se pretende dimensionar un intercambiador tubo carcasa mediante el 
metodo Bell-Delaware, para obtener el intercambiador de menor coste que cumpla los 
requerimientos especificados por el usuario y la normativa TEMA. 

El programa desarrollado esta basado fundamentalmente en los trabajos "Heat 
exchanger design targets for minimum area and cost" de K. Muralikrishna y U.V.Shenoy 
[31] y "Feasible design space for Shell-and-tube heat exchangers using the Bell-Delaware 
method" de Medardo Serna-Gonzalez, Jose M. Ponce-Ortega, AgustinJ. Castro-Montoya 
y Arturo Jimenez-Gutierrez [32], 

6.1 CONSIDERACIONESINICIALES 

El programa desarrollado es valido para intercambiadores estandar tipo TEMA E, con 
deflectores de segmentacion simple y tubos lisos. Seria posible su modificacion, para 
otro tipo de intercambiador. 

Los datos de partida son los caudales masicos de ambos fluidos, las resistencias de 
ensuciamiento (fouling), las propiedades fisicas de ambos fluidos, asi como que fluido 
fluye por los tubos y cual por la carcasa y las temperaturas de entrada y salida de ambos 
fluidos. 

Tambien son necesarios los diametros interior y exterior de los tubos, la disposicion de 
los tubos y las restricciones pertinentes, incluyendo la maxima perdida de carga 
admisible para ambos fluidos. 

6.2 PROCEDIMIENTO GENERAL 

El objetivo principal es la obtencion del conjunto de intercambiadores que cumplen las 
restricciones y requisitos, y a partir de el los, obtener el de menor coste total anualizado. 

El metodo a seguir para obtener dicho conjunto de intercambiadores es trazar una curva 
de perdida de carga en los tubos vs. perdida de carga en la carcasa, para cada una de 
las restricciones iniciales (longitud maxima, diametro de carcasa maximo, relacion entre 
separacion de los deflectores y el diametro de la carcasa maxima y minima (Fibs), 
velocidades por los tubos maxima y minima y velocidades por la carcasa maxima y 
minima), de todos los intercambiadores que poseen dicha restriccion, con el objetivo de 
delimitar un area, donde se encontraran los intercambiadores que cumplen todas las 
restricciones. 

Se efectuaran iteraciones para determinar el resto de parametros geometricos de la 
carcasa para cada una de las restricciones. 
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6.3 OBTENCION DE LAS CURVAS 

Para la obtencion del area factible, es necesario trazar 8 curvas: longitud maxima, 
diametro de carcasa maximo, relacion entre separacion de los deflectores y el diametro 
de la carcasa maxima y minima (Rbs), velocidades por los tubos maxima y minima y 
velocidades por la carcasa maxima y minima. 

Para un corte del deflector. Be, y unos valores de separacion de los deflectores a la 
entrada y salida del intercambiador, Ly L 0 , determinados, las ecuaciones anteriormente 
definidas dependen de cinco variables independientes: perdida de carga en la carcasa, 
perdida de carga en los tubos, diametro de la carcasa interno, longitud de los tubos y 
relacion entre separacion de deflectores y diametro interno de la carcasa, Rbs. 
Para obtener dichas variables se dispone de tres ecuaciones, las dos de la perdida de 
carga en los tubos y la carcasa, y una unica ecuacion que relaciona L ta , D s y Rbs. Por lo 
tanto se dispone de dos grados de libertad independientes para el diseno. 


Dado que un orden cualquiera de resolucion no Nevada a un resultado correcto debido 
a los grados de libertad, para obtener las curvas se seguira un metodo de tipo iterativo, 
obtenido de la publicacion de Muralikrishna y Shenoy [31]. 


Restricciones 

Paso 1 

Paso 2 

Paso 3 

Paso 4 

Paso 5 

Vt,min Vt,max 

Calcular D s 

Elegir AP t y 
variarlo 

Calcular L 

Calcular Rbs 

Calcular AP S 

Vs,min Vs,max 

Elegir D s y 
variarlo 

Calcular Rbs 

Calcular L 

Calcular AP t 

Calcular AP S 

Ds,max 

Elegir AP t y 
variarlo 

Calcular L 

Calcular Rbs 

Calcular AP S 


Lmax 

Elegir D s y 
variarlo 

Calcular AP t 

Calcular Rbs 

Calcular AP S 


Rbs,min Rbs,max 

Elegir D s y 
variarlo 

Calcular L 

Calcular AP t 

Calcular AP S 



Tabla 11. Proceso a seguir para obtener las curvas de cada restriccion. 


Se utilizaran las ecuaciones propuestas en el trabajo de Medardo Serna-Gonzalez, Jose 
M. Ponce-Ortega, Agustin J. Castro-Montoya y Arturo Jimenez-Gutierrez [32], con 
algunas modificaciones debido a erratas. 

En las siguientes ecuaciones se tienen en cuenta las unidades a utilizar, siendo las 
unidades de longitud mm, las de densidad Kg/m 3 , las de viscosidad cP y las de presion 
Pa. 
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La ecuacion de la potencia termica se puede reescribir en los siguientes terminos, 
relacionando L ta , DsyRbs. 

Para Re t < 2100 (laminar) utilizaremos 


A(A - '"i)" = A 


con 


R b ' +a: D^ a \ L™{D % -m x f* 


+ 


+ C, 


(5.3.1a) 




1.33 Y(PA ] 


02 


W \ 1 

C 4 = K Si (10 6 M<'pj + °'iI V3 + DJL V - DjtL^r*** 

erio'xnijoj’ 


c 5 = 


Ct = 


o 

00 

f—H 


A 

W 


7r£> t (WJF(LMTD) 

/Cy/,\1'3((4 X loVyVj-D.) 


n/3 


10 3 /rJ 


fo“t) 


1/3 


A„ ,WA) ±d 

3 . + ^fs 




(2 x 10 )A^. 


(5.3.2) 

(5.3.3) 

(5.3.4) 

(5.3.5) 

(5.3.6) 

(5.3.7) 


Para 2100 < Re t < 10000 utilizaremos 

A(A - Ml)" = c 5 


D l + 0;n 1+<I; 

^bs 'A 


A 


C 8 (l + (DJL x f\c^'{D % - m,) M - 125) + ° 7 


(5.3.1b) 


con 
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C 8 = 


116 fc t 

V' 

A 

VV 


1.3 


10 3 Al 


C 9 = 


((4 x lO^^ifijDt) 2 " 0 


C^A^t) 


2/3 


(5.3.8) 


(5.3.9) 


Y para Re t > 10000 

LJD S - = C, 


. (A, - m,) 08 " 


+ 


+ c 7 


10 


(5.3.1c) 


con 


Ao ~ 


27fr t /C^ t W// t \oi4((4 x loVtfVtpfV^A) 08 " 


A uo^/KJ 




0.8 


(5.3.10) 


La perdida de carga en la carcasa se puede reducir a la siguiente ecuacion 


A P, = C, 


- ta 


5 V- fl A 2 -*’ 


(5.3.11) 


donde C 3 se define como 

4 K %3 (N,)(.M,) 2 -^ 


C 3 = 


[PsdO (4, + D aI (L v - DJ/L ^] 2 - 1) + (4 + 4)J 


(K + 1) 


(5.3.12) 

R p y Ks 3 dependen del Reynolds en la carcasa, siendo para flujo turbulento (Re s >2100) 


R = 


-b. 


p K, 


si 




+ 1 


(5.3.13a) 


112 





















Alejandro Arroyo Andres Aplicacion de Matlab 

DISENO BAJO NORMA TEMA DE INTERCAMBIADORES TUBO-CARCASA 



*S3 = * S1 (O* + Ksi(‘’*) R ° +b - 


(5.3.14a) 


con 


^1 = 1 — 


S m \( 1 + 0,3.V tcw )^ bPs 


5 W / (W + 1)D S 


(5.3.15) 


*S2 = 


(A>- i)„ , (^ + iU„ 

'Ai i /v. 


,(JV b + 1) 1 + 1) 


- 4 A ) 
\100/ 


2VA 


JC« s / / o sw )- 0,4 i 


pp 


siendo 


(5.3.16) 


c„ = b 


1.33 \ b (PPt\ b2 


p WA/ \ 


(5.3.17) 


Mientras que para flujo laminar 




AT, + + *5(«# ,+te 


!+&■> 


K» = [t5(tf)‘ l + *2 + 


(5.3.13b) 

(5.3.14b) 


con 


*;= 


(26 x loV^, 

[ Acw 

(JV„ + 

A> - A 


+ 


A c 


(5.3.18) 


Jfc = 


A*lPs /Al\ 


(A, + i)AVw 


(5.3.19) 


K = 


(N h -l) n t (N tcc + N tcvJ ) n 

iVl I A- 


(At, +1) 1 N, c m + 1) 


1-2 


-) 

iooi 


2*bPA 


Wfi^)-° U L 


PP 

(5.3.20) 
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La perdida de carga en los tubos es 


con 


A P t = Cy 


_ viK2+mt) 


+ Ci 


1 


(Pt - "'l) 


(£> s - m,) 




(5.3.21) 


^Wp) 3+m, TO(4 x 1 0 6 M t ) 2+mt (in 3 D l ) n ^ 2 ^ m ^ 

_ ,, mt / / v ic 2+mt r-. 5+mt 

PJ‘t OVAtw) ^ D tr 

1.25(JVy 3 (J\y(4 x 10 6 M t ) ! (m 3 D t ) 2 " 

<2 2 4 

PtJT-Ai 


(5.3.22) 


(5.3.23) 


El coeficiente de conveccion del fluido de la carcasa, h S/ se obtiene de la siguiente 
ecuacion 


A = c 4 - 


R 


1 l+Ol 


bs 


D 


Pudiendo despues obtener el valor de v s de 

K = Ksi(Vs) l+a2 


(5.3.24) 


(5.3.25) 


Procedimiento de calculo : 

Para la obtencion de las curvas de la velocidad maxima y minima en los tubos se procede 
del modo especificado en la Tabla 11. 

En primer lugar, se obtienen los valores de la potencia termica, Q, de (4.1.2) y el factor 
de correccion, F, de (4.1.18). 

Se escoge la velocidad limite por los tubos, ya sea la maxima o la minima, segun la curva 
que se desee obtener. 

A partir de la misma, obtenemos el valor del numero de Reynolds, Re t , de (4.3.50), el 
numero de tubos, N t t, de (4.3.11), el diametro de la carcasa, D s , de (4.3.1), el espesor de 
la placa tubular, L ts , de (4.3.7), el diametro del circulo que circunscribe el haz de tubos, 
Doti, de (4.3.3) y la holgura entre el haz de tubos y la carcasa, Lbb, de (4.3.6). 
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Tras ello, se procede a tomar un valor de perdida de carga en los tubos, AP t , que se ira 
variando a lo largo del proceso para obtener los distintos puntos de la curva. 
A partir del valor de AP t , podemos obtener la longitud de los tubos, L t t, de (5.3.21) y la 
longitud efectiva de los tubos, L ta , de (4.3.8). 

Bucle de resolucion : 

Se inicializan las variables necesarias para la ejecucion del bucle que se utilizara para 
obtener la solucion, R p , C3, C4y Ks 4 , asi como la velocidad del fluido en la carcasa, v s . Para 
realizar la primera iteracion, consideraremos que la viscosidad es constante y que los 
factores de correccion son igual a 1, valores que iremos obteniendo y actualizando con 
cada iteracion. 

Se resuelve la ecuacion (5.3.1) para obtener Rbs, se obtiene el valor de h s de (5.3.24) y 
de v s de (5.3.25). 

Se calculan los parametros geometricos: separacion entre los deflectores centrales, Lb C , 
de (4.3.9), el numero de deflectores, Nb, de (4.3.10), asi como el area de paso en flujo 
perpendicular a los tubos para el fluido de la carcasa, S m , de (4.3.21) y el Reynolds del 
fluido de la carcasa, Re s , de (4.3.37). 

Tambien se calcularan las distintas areas de paso debido a holguras, que seran 
necesarias para obtener los factores de correccion: el area de paso neta en la ventana 
del deflector se calcula mediante la ecuacion (4.3.24), el area entre los deflectores y los 
tubos debido a las holguras, S t b, de (4.3.25), el area entre la carcasa y los deflectores, 
Ssb, de (4.3.26) y el area entre el haz de tubos y la carcasa, Sb, de (4.3.28). 

El siguiente paso es obtener los factores de correccion: 

El factor de correccion para el flujo por la ventana del deflector, J c , de (4.3.38). 

Los factores de correccion para las fugas en los deflectores, Ji y Ri, de (4.3.39) y 
(4.3.40), respectivamente. 

Los factores de correccion para el flujo entre el haz de tubos y la carcasa, Jb y Rb, de 
(4.3.43) y (4.3.44). 

Los factores de correccion para una separacion desigual de los deflectores, J s y y R s , de 
(4.3.45) y (4.3.46). 

Y el factor de correccion de flujo laminar, J r , de (4.3.48). 

Tras ello, se obtienen los valores de las variables R p y Ks 3 , necesarias para calcular el valor 
de la perdida de carga en la carcasa, de las ecuaciones (5.3.13) y (5.3.14). Se calculan 
tambien los nuevos valores de las variables de iteracion Ks4y C4. 
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Se calcula el valor del coeficiente de transferencia de calor en el interior de los tubos, h t , 
mediante (4.3.49), para obtener la temperatura de la pared de los tubos, T w , de (4.3.30), 
y asi calcular los valores de las viscosidades a la temperatura de la pared, p tw y Psw 
(4.3.31). 

Vuelve a ejecutarse el bucle completo, hasta que las variables de iteracion (C 4 , Ks 4 , v s , R P 
y C 3 ) convergen. 

A continuation, se calcula el valor de la perdida de carga en la carcasa, mediante (5.3.11) 
y se modifica el valor inicial de la perdida de carga en los tubos, para volver a ejecutar 
los mismos pasos y hallar el siguiente punto de la grafica. 

Para obtener el resto de las curvas, se prosigue de un modo similar, segun el proceso 
especificado en la Tabla 11. 

6.4 EL PROBLEMA DE MURALIKRISHNA Y SHENOY 

A modo de comparativa se resolvera el problema resuelto por Muralikrishna y Shenoy 
en su publicacion, que parte de los siguientes datos iniciales: 

6 pasos por tubo, 1 por carcasa. intercambiador tipo TEMA E de cabezal de anillos 
divididos. 

Did metro exterior de los tubos (D t ) 19.1mm, diametro interior (D t J 15.4mm y 
conductividad termica k w =36 W/m- g C (acero). Layout cuadrado y distancia entre tubos 
25.4mm. 

Los deflectores son segmentados, con un corte del deflector de 25%. 
La perdida de carga admisible en los tubos es de 69kPa y en la carcasa de 14kPa. 
La suma del factor de ensuciamiento (fouling) en los tubos (Rf t ) y la carcasa (Rf S ) es de 
3x1 O' 4 m 2 --C/W. 


La velocidad maxima en los tubos (v t ,max) es de 2.2m/s y la minima (v t ,mm) de 1.5m/s, 
mientras gue en la carcasa (v s , max. Vs, min) son de 0.8m/s y 0.3m/s. 

El diametro maximo de la carcasa (D s ,max) es de lm, y la longitud maxima (L max ) de 1.2m, 
mientras que la relacion entre la separacion de los deflectores y el diametro de la carcasa 

(Rbs.min, Rbs,max) pU6d6 OSCilOT 6fltr6 0.2 y 1. 
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Las propiedades de los fluidos son: 

Para el fluido de los tubos: 

Ttiftempemtura de entrada en la carcasa): 15-C 

T t0 (temperatura de entrada en la carcasa): 25-C 

M t (flujo masico en los tubos): 31.58 kg/s 

Cptfcalor especlfico del fluido de los tubos): 4180J/kg-K 

pt (densidad): 998kg/m 3 

p t (viscosidad): lcP = 10" 3 kg/m-s 

kt (conductividad termica): 0.6W/m-K 

Para el fluido de la carcasa: 

T S i(temperatura de entrada en la carcasa): 98-C 

Tsoftemperatura de salida de la carcasa): 65-C 

Ms (flujo masico en la carcasa): 14.9 kg/s 

C ps (calor especlfico del fluido de los tubos): 2684J/kg-l< 

p s (densidad): 777kg/m 3 

p s (viscosidad): 0.23cP = 0.23*10" 3 kg/ms 

k s (conductividad termica): 0.11W/m-K 
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6.4.1 Area factible 

Es necesario trazar las curvas para cada una de las variables para obtener el area factible. 

6.4.1.1 Curvas velocidad 

Trazando las curvas de velocidad maxima y minima tanto en los tubos como en la carcasa 
queda delimitado el siguiente espacio: 

La linea de puntos verde es la velocidad minima en los tubos. Delimita el espacio por la 
izquierda, teniendo todos los puntos que se encuentran a su izquierda una velocidad en 
los tubos inferior. Del mismo modo, la linea continua azul de velocidad maxima en los 
tubos, delimita el espacio por la derecha, ya que todos los puntos a su derecha tienen 
una velocidad en el interior de los tubos superior. 

La linea de puntos roja es la velocidad maxima en la carcasa, y delimita el espacio por la 
parte superior, teniendo todos los puntos que se encuentren por encima una velocidad 
del fluido de la carcasa superior a la maxima. Del mismo modo, la linea continua azul 
claro delimita el espacio por la parte inferior, teniendo todos los puntos que estan por 
debajo una velocidad en la carcasa inferior a la minima. 



-vtmax 

-vtmin 

-vsmax 

— vsmin 


Figura 65. Curvas de velocidades limite. 
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6.4.1.2 Curvas diametro de carcasa maximo y longitud maxima 

Representando las curvas de diametro de la carcasa maximo y longitud maxima queda 
delimitado el siguiente espacio, en el que la curva de longitud maxima delimita el 
espacio por la derecha, y la de diametro maximo por la izquierda. 



Figura 66. Curvas de diametro maximo y longitud maxima de la carcasa. 
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6.4.1.3 Curvas relation entre separation de los deflectoresy diametro de la carcasa, 
Rbs, maximay minima 

Por ultimo las curvas de la relacion de separacion de los deflectores con el diametro de 
la carcasa, en la que el maximo es 1, que delimita el espacio por su parte inferior, y el 
minimo es 0.2, que delimita el espacio por la parte de arriba. 



-Rbsmax 

-Rbsmin 


Figura 67. Curva de relacion entre separacion de los deflectores y diametro de la carcasa maxima 
y minima. 
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6.4.1.4 Area obtenida 

Representando todas las curvas a la vez podemos obtener el area factible, que cumple 
todas las restricciones y aparece sombreada en la siguiente figura. 



-vtmax 

--vtmin 

-vsmax 

vsmin 

-Dsmax 

Lmax 

-Rbsmax 

-Rbsmin 


Figura 68. Area factible obtenida. 
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Siendo la grafica obtenida por Murolikrishno y Shenoy. 



Las diferencias que se aprecian pueden ser debidas a los factores de correccion, ya que 
en el trabajo de Muralikrishna y Shenoy utilizan una constante para tenerlos en cuenta, 
en lugar de valores dependientes de la geometria. 

6.4.2 Coste del intercambiador 

La expresion utilizada para calcular el coste del intercambiador viene de la publicacion 
deJegede, F.O. y Polley, G.T. [33], Es la utilizada en el trabajo de Muralikrishna y Shenoy. 

Se utilizara el coste total anualizado (TAC). Tiene en cuenta los costes de fabricacion y 
los de operacion, considerando el coste de adquisicion del intercambiador y las dos 
bombas para los fluidos, as! como el consumo de dichas bombas durante el 
funcionamiento. 

g l 1 CMM^ | map; 

J flip, Pt . 

Siendo cada uno de los terminos: 


TAC=^ f C a + C^ f + C e + C f 


M,AP S 


+ C e +C f 


M,A P, 


P, 
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At: factor de anualizacion del coste inicial 

C a y Ct>: constantes para el calculo del coste de adquisicion del intercambiador 
A: area de intercambiador de calor 

c: constante exponencial para el coste de adquisicion del intercambiador 
C e y Cf: constantes para el calculo del coste de adquisicion de las bombas 
g: constante exponencial para el coste de adquisicion de las bombas 
Cpow- coste energetico 
H: tiempo de funcionamiento anual 
q: rendimiento de las bombas 

Viniendo determinados sus valores en la siguiente tabla: 


C.[S] 

30 000 

C b [$/(m-) 081 ] 

750 

c 

0.81 

c,[ s] 

2 000 

Cf[S/W°« 8 ] 

5 

s 

0.68 

Cpav [$/W h] 

0.000 05 

H [1i'\t] 

8 000 

A t [1/yr] 

0.322 

V 

0.7 


Tabla 12. Constantes para el calculo del coste total anualizado de un intercambiador tubo- 
carcasa. 
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6.4.2.1 Curvas de isocoste total anualizado (TAG') 

Se pueden representar las curvas de isocoste, para ver de que modo varia el coste total 
del intercambiador en funcion de las dimensiones del intercambiador y las perdidas de 
carga. 

Para el problema en cuestion, obtenemos: 


Curvas de isocoste total anualizado (TAC) 



Figura 70. Curvas de isocoste total anualizado del intercambiador. 

Por lo tanto combinando esta grafica con la del area factible, se puede extrapolar el 
punto de minimo coste. 
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Curvas de isocosle total anualizado (TAC) 



Figura 71. Coste total anualizado minimo para las restricciones de partlda. 


En nuestro caso, el punto de minimo TAC es el de la interseccion entre Rbsmin y v t min ya 
que sera el punto tangente a la curva de menor coste. Que corresponde al siguiente 
intercambiador: 


Perdida de carga en los tubos [Pa] 
27933.24 

Perdida de carga en la carcasa [Pa] 
5202.43 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 
1018.65 

Velocidad en la carcasa [m/s] 
0.52 


Velocidad en los tubos [m/s] 
1.50 


Relation entre separacion de los 
deflectores y diametro de la 
carcasa 


0.20 

Coste total anualizado [S] 
15990.70 

Area de intercambio [m2] 
34.80 


Figura 72. Caracteristicas del intercambiador de menor coste total anualizado (TAC) obtenido en 
este trabajo. 
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6.4.3 Comparativa de resultados obtenidos 

Tras el calculo del intercambiador de minimo coste con nuestro programa, podemos 
comparar los resultados con otros trabajos similares y con algunos software de calculo 
de intercambiadores. 

Muralikrishna y Shenoy en su trabajo obtienen el siguiente intercambiador de minimo 
coste: 


A P x [kPa] 

25.93 

AP S [kPa] 

4.5 

A [nun] 

855 

L [nun] 

844 

i?bs 

0.2 

A[m-] 

34.41 

TAC [$/year] 

15 895 


Figura 73. Caracteristicas del intercambiador de menor coste total anualizado (TAC) obtenido 
por Muralikrishna y Shenoy [31], 


Y los autores de " Feasible design space for Shell-and-tube heat exchangers using the Bell- 
Delaware method" [32]: 


A7> t [kPa] 

34.736 

A P, [kPa] 

1.514 

A [nun] 

662.61 

L [nun] 

1 067.47 

i?bs 

0.239 

.4 [nr] 

19.96 

TAC [$/year] 

14 525 


Figura 74. Caracteristicas del intercambiador de menor coste total anualizado (TAC) obtenido 
por los autores de "Feasible design space for Shell-and-tube heat exchangers using the Bell- 
Delaware method" [32] 

Mediante la resolucion del mismo problema con los software de calculo HTFS y B-JAC se 
obtienen los siguientes resultados. 
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L mgr 1.2 Ill. jVpgjs 6 


HTFS B-JAC 


AP t [kPa] 
AP S [kPa] 

Di [mni] 

L [nun] 

Rbi 

A[ m 2 ] 

TAC [$/year] 


15 948 


686 
1 056 


0.24 

29.84 


50.39 

3.49 


33.892 
2.029 
880 
1 200 
0.486 
56.6 
18 227 


Figura 75. Caracteristicas del intercambiador de menor coste total anualizado (TAC) obtenido 
por los software de calculo HTFS y B-JAC. 

Se aprecian diferencias significativas entre los software FTFS y B-JAC y esta aplicacion, 
asf como entre ambos software, tanto en el coste total anualizado, como en las 
dimensiones del intercambiador. Por lo tanto, parece razonable que existan ciertas 
discrepancias entre los resultados obtenidos por este programa, y los obtenidos 
mediante dichos software. 

Los resultados obtenidos mediante el software HTFS se asemejan mas a los obtenidos 
mediante esta aplicacion. 
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6.4.4 Interfaz 

La interfaz de la aplicacion, permite introducir las restricciones y propiedades de los 
fluidos de manera intuitiva y accesible, asi como visualizar los resultados obtenidos e 
interactuar con ellos. 


TUBOS 

vetoed ad minima [m/s] vetocidad maxima [m/s] 


CARCASA 

vetocidad minima [m/s] vetocidad maxima [m/s] 


Temperature de entrada [°C] Temperature de salida [°C] Temperature de entrada [°C] Temperature de salida [°C] 
15 25 98 65 

Conductividad termica [W/mK] Capacidad catorifica [J/KgK] Conductividad termica [W/mK] Capacidad calorifica [J/KgK] 
0.6 4180 0.11 2684 


Densidad [kg/m3] 


Viscosidad [cP] 


Densidad [kg/m3] 


Viscosidad [cP] 


Caudal masico [kg/s] Factor de ensuciamiento [°Cm2/W] Caudal masico [kg/s] Factor de ensuciamiento [°Cm2/W] 


31.58 

Perdida de carga maxima (Pa) 


GEOMETRIA 


Diametro maximo [mm] 
1000 


triangulo 
) cuadrado 


’ Fijo 

Flotante extemo 
» Anillos divididos 
Traccton continua 


1.5*10*-4 


Longitud maxima [mm] 
1200 


Perdida de carga maxima (Pa) 

Conductividad termica Relacion en 
del material de los deflectores 
tubos [W/mK] 


14000 

tre separacion de k 
centrales 


el deflector [%] 


I_ 1 _I 

Relacion entre separacion de los 
deflectores en la salida y en los 
centrales 


n 


Numero de pasos por los tubos 


Punto minimo TAC 

VtminRbsmin 


Perdida de carga en los tubos [Pa] 
27933.24 

Perdida de carga en la carcasa [Pa] 
5202.43 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 
1018.65 

Vetocidad en la carcasa [m/s] 
0.52 


Relacion entre separacion de los 
deflectores y diametro de la 
carcasa 
0,20 

Coste total anuafizado [S] 
15990.70 

Area de intercambio [m2] 
34.80 



- vtmax 

-vtmin 

|-vsmax 

— vsmin 

I-Dsmax 

— Lmax 

-Rbsnvax 

-Rbsmin 

-Elegir punto- 

> VtminVsmax 
■ If 1 VtminRbsmin 
« VtminVsmin 
VtmmdePsmax 
DsmaxVsmax 
< DsmaxRbsmin 
DsmaxVsmin 
■ VtmaxVsmax 
1 VtmaxRbsrmn 


Punto seleccionado 


Perdida de carga en los tubos [Pa] 
28559.64 

Perdida de carga en la carcasa [Pa] 
1739.00 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 
1075.07 

Vetocidad en la carcasa [m/s] 
0.30 


Vetocidad en los tubos [m/s] 
1.50 

Relacion entre separacion de los 
deflectores y diametro de la 
carcasa 
0.34 

Coste total anualizado [S] 
16176.50 

Area de intercambto [m2] 
37.11 


Figura 76. Interfaz del programa. 
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Se pueden diferenciar varias secciones: 


6.4.4.1 Introduction de datos 

Consta de un conjunto de espacios en bianco y selectores que permiten variar tanto las 
caracteristicas de los fluidos (densidades, viscosidades, flujos masicos...), como la 
geometria del intercambiador (pasos por los tubos, diametro maximo de la carcasa, 
longitud maxima de la carcasa, separacion entre deflectores...). Existiendo un apartado 
para el fluido de los tubos, otro para el de la carcasa y un ultimo apartado para la 
geometria del intercambiador. 


TUBOS 


CARCASA 


velocidad minima [m's] 

velocidad maxima [m/s] 

velocidad minima [nv‘s] 

velocidad maxima [m/'s] 

1.5 

2.2 

0.3 

0.8 

Temperatura de entrada [°C] Temperatura de salida [°C] Temperatura de entrada [°Cj Temperature de salida [°C] 

15 

25 

98 

65 

Viscosidad a Tin [cP] 

Viscosidad a Tout[cP] 

Viscosidad a Tin[cPl 

Viscosidad a Tout [cP] 

1 

1 

0.23 

0.23 

Densidad [kg/m3I 

Conductividad termica p/iWmK] 

Densidad [kg/m3] 

Conductividad termica [W/mK] 

998 

0.6 

777 

0.11 

Caudal masico [kg/s] 

Factor de ensuciamiento [ 0 Cm2/'/i/] 

Caudal masico [kg/s] Factor de ensuciamiento [°Cm2/W] 

31.58 

1.2094*1 O'M 

14.9036 

1.5*1 O' 1 -4 

Perdida de carga maxima (Pa) Capacidad calorifica [J/KgKl Perdida de carga maxima (Pa) Capacidad calorifics [J/KgK] 

69000 

4180 

14000 

2684 

GEOMETRIA 

Diametro maximo [mm] Longitud maxima [mm] 

Conductividad termica 
del materia! de los 
tubos [W/mK] 

Relacion entre separacion de los 
deflectores en la entrada y en los 
centrales 

1000 

1200 | 

36 

1 


layout- 


triangulo 
o cuadrado 


r— cabezal- - 

Fijo 

Flotante externo 
o Anillos divididos 
Traction continua 


Corte del deflector [%] 
25 


Relacion entre separacion de los 
deflectores en la salida y en los 
centrales 

1 


90° 


n 


Calcular 


Numero de pasos por los tubos 


Figura 77. Panel para introducir datos en el programa. 
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6.4A.2 Punto optimo 

Tras introducir los datos y pulsar el boton "Calcular" se ejecuta el programa y se obtiene 
el punto de diseno optimo, de coste total anualizado (TAC) minimo, para el que se 
representan las dimensiones del intercambiador y sus propiedades. 


Punto minimo TAC 

VtminRbsmin 


Perdida de carga en los tubos [Pa] 


27933.23 

Perdida de carga en la carcasa [Pa] 
5202.45 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 


1018.65 

Velocidad en la carcasa [m/s] 
0.52 


Velocidad en los tubos [m/s] 
1.50 

Relacion entre separacion de los 
deflectores y diametro de la 
carcasa 
0.20 

Coste total anualizado [€] 
12818.14 

Area de intercambio [m2] 
34.80 


Figura 78. Presentacion de las caracterlsticas del intercambiador de minimo coste obtenido 
mediante el programa. 


En este caso corresponde con la interseccion de las curvas de velocidad minima en los 
tubos (Vtmin) y relacion de separacion entre los deflectores y diametro de la carcasa 
minima (Rbs,min). 
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6.4A.3 Grafica perdida de carga en los tubos vs. perdida de carga en la carcasa 

Obteniendo para dichos datos la grafica de perdida de carga en los tubos vs. perdida de 
carga en la carcasa, que permite representar el area factible. 



- vtmax 

- vtmin 

- vsmax 

vsmin 

— - — Dsmax 
Lmax 

-Rbsmax 

- Rbsmin 

Elegir punto 
I © VtminVsmax 
I © Vtmin Rbsmin 
o VtminVsmin 
VtmindelPsmax 
© DsmaxVsmax 
DsmaxRbsmin 
© DsmaxVsmin 
© VtmaxVsmax 
I © VtmaxRbsmin 

Obtener Punto 


Figura 79. Grafica de "perdida de carga en los tubos vs. perdida de carga en la carcasa" para 
todas las restricciones obtenida mediante el programa. 
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6.4.4A Calculo analitico de puntos 

A partir del panel situado junto a la grafica, se pueden obtener analiticamente los 
valores de los puntos mas significativos de la grafica. 


Perdida de carga en los tubos [Pa] 
28559.64 

Perdida de carga en la carcasa [Pa] 
1739.00 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 
1075.07 

Velocidad en la carcasa [nVs] 
0.30 


Velocidad en los tubos [nVs] 
1.50 

Relaclon entre separation de los 
deflectores y diametro de la 
carcasa 
0.34 

Coste total anualizado [€] 
12967.08 

Area de intercambio [m2] 
37.11 


Figura 80. Presentation de 
seleccionado. 


las caracteristicas del intercambiador del punto de la grafica 
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7. ANALISIS 
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Gracias a la aplicacion podemos estudiar la influencia de diversos parametros en el 
diseno del intercambiador. 


7.1 anAlisis DE LA INFLUENCIA DEL FOULING 

En este caso analizaremos la influencia del ensuciamiento o fouling en el coste del 
intercambiador, y en el area foctible. Resolveremos para ello el mismo problema que en 
el caso anterior, para poder comparar resultados con mayor facilidad. 


7.1.1 Incremento del fouling 

Un aumento del fouling de un 25%, conduce a los siguientes resultados: 


Factor de ensuciamiento [°Cm2/W] 
1.5013e-04 


Factor de ensuciamiento [°Cm2/W] 
1.8750e-04 


Punto minimo TAC 

VtminRbsmin 


Perdida de carga en los tubos [Pa] 
28366.51 

Perdida de carga en la carcasa [Pa] 
5402.19 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 
1057.67 

Velocidad en la carcasa [m/s] 
0.52 


Velocidad en los tubos [m/s] 
1.50 


Relation entre separacion de los 
deflectores y diametro de la 
carcasa 


0.20 

Coste total anualizado [€] 
12955.70 

Area de intercambio [m2] 
36.40 


Figura 81. Intercambiador de minimo coste obtenido con un aumento del fouling de un 25%. 


Se aprecia un aumento del coste total anualizado (TAC), que en el caso inicial era de 
12,818.14€ y tras aumentar el fouling, de 12,955.70€. Lo que supone un aumento del 
coste de en torno a un 1%. 

A su vez, se produce un aumento en la longitud del intercambiador requerida, siendo la 
inicial de 1018.65mm, y tras aumentar el fouling es de 1057.67mm. Lo que supone un 
aumento de casi un 4%, que conlleva un aumento de la misma proporcion en el area de 
intercambio. 
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- vtmax 

— - — vtmin 

- vsmax 

- vsmin 

- Dsmax 

— Lmax 

-Rbsmax 

- Rbsmin 

Elegir punto 
I O Vtmin Vs max 
o Vtmin Rbsmin 
I O Vtmin Vs min 
VtmindelPsmax 
I © DsmaxVsmax 
I © DsmaxRbsmin 
I © DsmaxVsmin 
I © VtmaxVsmax 
VtmaxRbsmin 

Obtener Punto 


Figura 82. Grafica de "perdida de cargo en los tubos vs. perdida de cargo en la carcasa" para 
todas las restricciones con un aumento del fouling de un 25%. 


7.1.2 Disminucion del fouling 

Una disminucion del fouling de un 25%, conduce a los siguientes resultados: 


Factor de ensuciamiento [°Cm2/W] 
9.0075e-05 


Factor de ensuciamiento [°Cm2/W] 
1.1250e-04 


Punto minimo TAC 

Vtmin Rbsmin 


Perdida de carga en los tubos [Pa] 
27487.71 

Perdida de carga en la carcasa [Pa] 
4997.03 

Diametro de la carcasa [mm] 
853.90 

Longitud del intercambiador [mm] 
978.53 

Velocidad en la carcasa [m/s] 
0.52 


Velocidad en los tubos [m/s] 
1.50 

Relacion entre separation de los 
deflectores y diametro de la 
carcasa 
0.20 

Coste total anualizado [€] 
12675.52 

Area de intercambio [m2] 
33.15 


Figura 83. Intercambiador de minimo coste obtenido con una disminucion del fouling de un 25%. 
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Se aprecia una disminucion del coste total anualizado (TAC), que en el caso inicial era de 
12,818.14€ y tras disminuir el fouling, de 12,675.52€. Lo que supone una reduccion del 
coste de en torno a un 1%. Como era de esperar, se produce una disminucion de la 
longitud del intercambiador requerida, quedando en 978.53mm. Lo que supone una 
reduccion de mas de un 4%. 



Figura 84. Grafica de "perdida de cargo en los tubos vs. perdida de cargo en la carcasa" para 
todas las restricciones con una disminucion del fouling de un 25%. 
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ANEXO. CODIGO DE LAS 
APLICACIONES DE MATLAB 
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menu.m 


ANEXO. CODIGO DE LAS APLICACIONES DE MATLAB 



1 of 14 


mfilename, ... 
gui_Singleton, . . 
@menu_OpeningFcn, 
@menu_OutputFcn, 

[] , ... 

[]) ; 


= gui_mainfcn(gui_State, varargin{:}); 


1 function varargout = menu(varargin) 

2 % MENU MATLAB code for menu.fig 

3 % Begin initialization code - DO NOT EDIT 

4 gui_Singleton = 1; 

5 gui_State = struct (' gui_Name' , 

6 'gui_Singleton' , 

7 'gui_OpeningFcn' , 

8 'gui_OutputFcn' , 

9 'gui_LayoutFcn' , 

10 'gui_Callback' , 

11 if nargin && ischar(varargin{1}) 

12 gui_State.gui_Callback = str2func(varargin)1}); 

13 end 

14 

15 if nargout 

16 [varargout{1:nargout}] 

17 else 

18 gui_mainfcn(gui_State, varargin{:}); 

19 end 

20 %Creacion de todas las variables en GUI y aviso de si los valores 

21 %introducidos son validos, en caso de no serlo, se sustituye el valor de la 

22 %casilla por 0. 

23 function menu^OpeningFcn(hObject, eventdata, handles, varargin) %#ok<*INUSL> 

24 handles.output = hObject; 

25 guidata(hObject, handles); 

26 function varargout = menu_OutputFcn(hObject, eventdata, handles) 

27 varargout{l} = handles.output; 

28 function vtmin_Callback(hObject, eventdata, handles) %#ok<*DEFNU> 

29 if isempty(str2num(get(handles.vtmin, 'String ')) ) II str2num(get(handles .^ 
vtmin, 'String' ))<=0 %#ok<*ST2NM> 

30 set(handles.vtmin,' String ',' 0 '); 

31 warndlg( 'Debe ser un numero positivo') 

32 end 

33 function vtmin_CreateFcn(hObject, eventdata, handles) %#ok<*INUSD> 

34 if ispc && isequal(get(hObject, 'BackgroundColor' ), get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

35 set(hObject, 'BackgroundColor" , white'); 

36 end 

37 function vtmax_Callback(hObject, eventdata, handles) 

38 if isempty(str2num(get(handles.vtmax, 'String ')) ) || str2num(get(handles .^ 

vtmax, 'String' 

39 set(handles.vtmax,' String' , '0' ); 

40 warndlg (' Debe ser un numero positivo') 

41 else if str2num(get(handles.vtmax,' String '))<str2num(get(handles.vtmin, 'String ') ) 

42 set(handles.vtmax,' String' ,get(handles.vtmin, 'string' )); 

43 warndlg (' vtmax debe ser mayor o igual que vtmin') 

4 4 end 

45 end 

46 function vtmax_CreateFcn(hObject, eventdata, handles) 

47 if ispc && isequal(get(hObject ,' BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

4 8 set (hObj ect, 'BackgroundColor ',' white ') ; 

4 9 end 
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50 function vsmin_Callback(hObject, eventdata, handles) 

51 if isempty(str2num(get(handles.vsmin,' String '))) || str2num(get(handles .^ 

vsmin, 'String' ))<=0 

52 set(handles.vsmin, 'String ',' 0 ') ; 

53 warndlg( 'Debe ser un numero positivo') 

54 end 

55 function vsmin_CreateFcn(hobject, eventdata, handles) 

56 if ispc && isequal(get(hObject, 'BackgroundColor ') , get* 

(0, 'defaultUicontrolBackgroundColor' )) 

57 set(hObj ect, 'BackgroundColor' , 'white' ); 

58 end 

59 function vsmax_Callback(hObject, eventdata, handles) 

60 if isempty(str2num(get(handles.vsmax,' String '))) || str2num(get(handles .k 

vsmax, 'String ')) <=0 

61 set(handles.vsmax, 'String' , ' 0 ' ) ; 

62 warndlg(' Debe ser un numero positivo') 

63 else if str2num(get(handles.vsmax, 'String ')) <str2num(get(handles.vsmin,' String ')) 

64 set(handles.vsmax, 'String' ,get(handles.vsmin, 'string' )); 

65 warndlg(' vsmax debe ser mayor o igual que vsmin') 

66 end 

67 end 

68 function vsmax_CreateFcn(hObject, eventdata, handles) 

69 if ispc && isequal(get(hObject ,' BackgroundColor ') , get * 

(0, 'defaultUicontrolBackgroundColor' )) 

7 0 set(hObj ect, ' BackgroundColor ',' white '); 

71 end 

72 function Ttin_Callback(hObject, eventdata, handles) 

73 if isempty(str2num(get(handles.Ttin, 'String ')) ) || str2num(get(handles .^ 

Ttin, 'String' ))<=0 

74 set(handles.Ttin, 'String','0') ; 

75 warndlg (' Debe ser un numero positivo') 

7 6 end 

77 function Ttin_CreateFcn(hObject, eventdata, handles) 

78 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 

(0,' defaultUicontrolBackgroundColor' )) 

7 9 set(hObj ect, 'BackgroundColor' , 'white' ); 

80 end 

81 function Ttout_Callback(hObject, eventdata, handles) 

82 if isempty(str2num(get(handles.Ttout,' String '))) || str2num(get(handles .^ 

Ttout, 'String' ))<=0 

83 set(handles.Ttout, 'String' , '0' ); 

84 warndlg(' Debe ser un numero positivo') 

85 end 

86 function Ttout_CreateFcn(hObject, eventdata, handles) 

87 if ispc && isequal(get(hObject ,' BackgroundColor ') , get* 

(0, 'defaultUicontrolBackgroundColor' )) 

88 set(hObj ect, ' BackgroundColor' , 'white' ); 

8 9 end 

90 function Tsin_Callback(hObject, eventdata, handles) 

91 if isempty(str2num(get(handles.Tsin, 'String ')) ) || str2num(get(handles. ^ 

Tsin, 'String' ))<=0 

92 set(handles.Tsin, 'String','0') ; 

93 warndlg(' Debe ser un numero positivo') 
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94 end 

95 function Tsin_CreateFcn(hObject, eventdata, handles) 

96 if ispc && isequal(get(hObject, 'BackgroundColor' ) , get*' 

(0, 'defaultUicontrolBackgroundColor' )) 

97 set(hObject, 'BackgroundColor' , 'white' ); 

98 end 

99 function Tsout_Callback(hObject, eventdata, handles) 

100 if isempty(str2num(get(handles.Tsout String '))) || str2num(get(handles .^ 

Tsout, 'String' ))<=0 

101 set(handles.Tsout, 'String' , '0' ); 

102 warndlg(' Debe ser un numero positivo') 

103 end 

104 function Tsout_CreateFcn(hObject, eventdata, handles) 

105 if ispc && isequal(get(hObject, 'BackgroundColor ') , get*' 

(0,' defaultUicontrolBackgroundColor' )) 

10 6 set(hObj ect, ' BackgroundColor' , 'white' ); 

107 end 

108 function kt_Callback(hObject, eventdata, handles) 

109 if isempty(str2num(get(handles.kt, 'String ')) ) || str2num(get(handles.kt,' String '))^ 

<=0 

110 set(handles.kt, 'String' , '0' ); 

111 warndlg(' Debe ser un numero positivo') 

112 end 

113 function kt_CreateFcn(hObject, eventdata, handles) 

114 if ispc && isequal(get(hObject ,' BackgroundColor ') , get*' 

(0, 'defaultUicontrolBackgroundColor' )) 

115 set(hObj ect, 'BackgroundColor ',' white ') ; 

116 end 

117 function Cpt_Callback(hObject, eventdata, handles) 

118 if isempty(str2num(get(handles.Cpt ,' String ')) ) || str2num(get(handles.* 

Cpt, 'String' ))<=0 

119 set(handles.Cpt,' String' ,' 0' ); 

120 warndlg(' Debe ser un numero positivo') 

121 end 

122 function Cpt^CreateFcn(hObject, eventdata, handles) 

123 if ispc && isequal(get(hObject, 'BackgroundColor ') , get*' 

(0,' defaultUicontrolBackgroundColor' )) 

124 set(hObj ect, ' BackgroundColor' , 'white' ); 

125 end 

126 function ROt_Callback(hObject, eventdata, handles) 

127 if isempty(str2num(get(handles.ROt ,' String ')) ) || str2num(get(handles. 

ROt, 'String' ))<=0 

128 set(handles.ROt,' String ',' 0 '); 

129 warndlg(' Debe ser un numero positivo') 

130 end 

131 function ROt^CreateFcn(hObject, eventdata, handles) 

132 if ispc && isequal(get(hObject, 'BackgroundColor ') , get*' 

(0, 1 defaultUicontrolBackgroundColor' )) 

133 set(hObject, BackgroundColor ',' white ') ; 

134 end 

135 function MUtin_Callback(hObject, eventdata, handles) 

136 if isempty(str2num(get(handles.MUtin,' String '))) || str2num(get(handles .^ 

MUtin, 'String' ))<=0 
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137 set(handles.MUtin,' String' , ' 0 ' ) ; 

138 warndlg( 'Debe ser un numero positivo') 

139 end 

140 function MUtin_CreateFcn(hObject, eventdata, handles) 

141 if ispc && isequal(get(hObject, 'BackgroundColor' ), get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

142 set (hObject, 'BackgroundColor , white'); 

143 end 

144 function MUtout_Callback(hObject, eventdata, handles) 

145 if isempty(str2num(get(handles.MUtout, 'String '))) || str2num(get(handles .^ 

MUtout ,' String ')) <=0 

146 set(handles.MUtout, 'String' , '0' ); 

147 warndlg (' Debe ser un numero positivo') 

148 end 

149 function MUtout_CreateFcn(hObject, eventdata, handles) 

150 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

151 set(hObject, 'BackgroundColor' , 'white' ); 

152 end 

153 function ks_Callback(hObject, eventdata, handles) 

154 if isempty(str2num(get(handles.ks,' String '))) || str2num(get(handles.ks ,' String ')) l/ 
<=0 


155 set(handles.ks, 'String' , '0' ); 

156 warndlg(' Debe ser un numero positivo') 

157 end 

158 function ks_CreateFcn(hObject, eventdata, handles) 

159 if ispc && isequal(get(hObject ,' BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

160 set(hObj ect, 'BackgroundColor ',' white ') ; 

161 end 

162 function Cps_Callback(hObject, eventdata, handles) 

163 if isempty(str2num(get(handles.Cps ,' String ')) ) || str2num(get(handles .^ 

Cps, 'String' ))<=0 

164 set(handles.Cps, String ',' 0 '); 

165 warndlg(' Debe ser un numero positivo') 

166 end 

167 function Cps_CreateFcn(hObject, eventdata, handles) 

168 if ispc && isequal(get(hObject ,' BackgroundColor ') , get* 

(0,' defaultUicontrolBackgroundColor' )) 

169 set(hObj ect, ' BackgroundColor' , 'white' ); 

170 end 

171 function ROs_Callback(hObject, eventdata, handles) 

172 if isempty(str2num(get(handles.ROs ,' String ')) ) || str2num(get(handles .^ 

ROs, 'String' ))<=0 

173 set(handles.ROs,' String ',' 0 '); 

174 warndlg(' Debe ser un numero positivo') 

175 end 

176 function ROs_CreateFcn(hObject, eventdata, handles) 

177 if ispc && isequal(get(hObject ,' BackgroundColor ') , get * 

(0, 'defaultUicontrolBackgroundColor' )) 

178 set(hObj ect, 'BackgroundColor' , 'white' ); 

179 end 

180 function MUsin_Callback(hObject, eventdata, handles) 
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181 if isempty(str2num(get(handles.MUsin, 'String ')) ) || str2num(get(handles .^ 

MUsin, 'String' ))<=0 

182 set(handles.MUsin, 'String' , '0' ); 

183 warndlg( 'Debe ser un numero positivo') 

184 end 

185 function MUsin_CreateFcn(hObject, eventdata, handles) 

186 if ispc && isequal(get(hObject, 'BackgroundColor' ), get i/ 

(0, 'defaultUicontrolBackgroundColor' )) 

187 set(hObject, 'BackgroundColor' , white' ); 

188 end 

189 function MUsout_Callback(hObject, eventdata, handles) 

190 if isempty(str2num(get(handles.MUsout, 1 String '))) || str2num(get(handles.* 

MUsout, 'String' ))<=0 

191 set(handles.MUsout, 'String ',' 0 ') ; 

192 warndlg (' Debe ser un numero positivo') 

193 end 

194 function MUsout_CreateFcn(hObject, eventdata, handles) 

195 if ispc && isequal(get(hObject, 'BackgroundColor ') , get 
(0, 'defaultUicontrolBackgroundColor' )) 

196 set(hObject, 'BackgroundColor' , 'white' ); 

197 end 

198 function Dsmax_Callback(hObject, eventdata, handles) 

199 if isempty(str2num(get(handles.Dsmax, 'String ')) ) || str2num(get(handles .^ 

Dsmax, 'String' ))<=0 

200 set(handles.Dsmax,' String' , '0' ); 

201 warndlg (' Debe ser un numero positivo') 

202 end 

203 function Dsmax_CreateFcn(hObject, eventdata, handles) 

204 if ispc && isequal(get(hObject ,' BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

205 set(hObject, 'BackgroundColor ',' white ') ; 

206 end 

207 function Lmax^Callback(hObject, eventdata, handles) 

208 if isempty(str2num(get(handles.Lmax, 'String ')) ) || str2num(get(handles .^ 

Lmax, 'String' ))<=0 

209 set(handles.Lmax,' String' , 0' ); 

210 warndlg (' Debe ser un numero positivo') 

211 end 

212 function Lmax_CreateFcn(hObject, eventdata, handles) 

213 if ispc && isequal(get(hObject ,' BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

214 set(hObj ect, 'BackgroundColor' , ' white' ); 

215 end 

216 function kw_Callback(hObject, eventdata, handles) 

217 if isempty(str2num(get(handles.kw,' String '))) || str2num(get(handles.kw, 'String '))^ 

<=0 

218 set(handles.kw, 'String' , '0' ); 

219 warndlg (' Debe ser un numero positive') 

220 end 

221 function kw_CreateFcn(hObject, eventdata, handles) 

222 if ispc && isequal(get(hObject, 'BackgroundColor ') , 

(0, 'defaultUicontrolBackgroundColor' )) 

223 set(hObj ect, 'BackgroundColor' , 'white' ); 


get 
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224 end 

225 function Li_Callback(hObject, eventdata, handles) 

226 if isempty(str2num(get(handles.Li String ')) ) II str2num(get(handles.Li, String ')) 

<1 

227 set(handles. Li, 'String' , ' 0 ' ) ; 

228 warndlg( 'Debe ser un numero mayor o igual que 1') 

229 end 

230 function Li_CreateFcn(hObject, eventdata, handles) 

231 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

232 set(hObject, BackgroundColor , 'white' ); 

233 end 

234 function Lo_Callback(hObject, eventdata, handles) 

235 if isempty(str2num(get(handles.Lo, 'String ')) ) || str2num(get(handles.Lo,' String '))^ 
<1 

236 set(handles.Lo, 'String' , '0' ); 

237 warndlg(' Debe ser un numero mayor o igual que 1') 

238 end 

239 function Lo_CreateFcn(hObject, eventdata, handles) 

240 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

241 set(hObj ect, ' BackgroundColor' , 'white' ); 

242 end 

243 function Rft_Callback(hObject, eventdata, handles) 

244 if isempty(str2num(get(handles.Rft ,' String ')) ) || str2num(get(handles .^ 

Rft, 'String' ))<0 

245 set(handles.Rft, String ',' 0 '); 

246 warndlg(' Debe ser un numero mayor o igual que O') 

247 end 

248 function Rft_CreateFcn(hObject, eventdata, handles) 

249 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

250 set(hObject,' BackgroundColor' , 'white' ); 

251 end 

252 function Rfs_Callback(hObject, eventdata, handles) 

253 if isempty(str2num(get(handles.Rfs ,' String ')) ) || str2num(get(handles. ^ 

Rf s, 'String' ))<0 

254 set(handles.Rfs, 'String' ,' 0' ); 

255 warndlg(' Debe ser un numero mayor o igual que O') 

256 end 

257 function Rfs_CreateFcn(hObject, eventdata, handles) 

258 if ispc && isequal(get(hObject ,' BackgroundColor ') , get ^ 

(0,' defaultUicontrolBackgroundColor' )) 

259 set(hObj ect, ' BackgroundColor' , 'white' ); 

260 end 

261 function Bc_Callback(hObject, eventdata, handles) 

262 if isempty(str2num(get(handles.Be, 'String ')) ) || str2num(get(handles.Be, ' String ')) iS 
<10 || str2num(get(handles.Be, 'String ')) >50 

2 63 set(handles.Rfs, 'String' , '25 ' ); 

264 warndlg (' Debe ser un numero entre 10 y 50') 

265 end 

266 function Bc_CreateFcn(hObject, eventdata, handles) 

267 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 
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(0, 'defaultUicontrolBackgroundColor' )) 

2 68 set(hObj ect, 'BackgroundColor' , 'white' ); 

269 end 

270 function Mt_Callback(hObject, eventdata, handles) 

271 if isempty(str2num(get(handles.Mt, 'String '))) || str2num(get(handles.Mt, ' String ')) u' 

<=0 

272 set(handles.Mt, 'String' , ' 0 ' ) ; 

273 warndlg( 'Debe ser un numero mayor que O') 

274 end 

275 function Mt_CreateFcn(hObject, eventdata, handles) 

276 if ispc && isequal(get(hObject, 'BackgroundColor ') , get 
(0,' defaultUicontrolBackgroundColor' )) 

277 set(hObject, 1 BackgroundColor 1 ,' white '); 

278 end 

279 function Ms_Callback(hObject, eventdata, handles) 

280 if isempty(str2num(get(handles.Ms ,' String ')) ) || str2num(get(handles.Ms,' String '))■>" 
<0 

281 set(handles.Ms, 'String' , '0' ); 

282 warndlg(' Debe ser un numero mayor que O') 

283 end 

284 function Ms_CreateFcn(hObject, eventdata, handles) 

285 if ispc && isequal(get(hObject ,' BackgroundColor ') , get i/ 

(0, 'defaultUicontrolBackgroundColor' )) 

2 8 6 set(hObj ect, ' BackgroundColor' , 'white' ); 

287 end 

288 function delPtmax_Callback(hObject, eventdata, handles) 

289 if isempty(str2num(get(handles.delPtmax, 'String ')) ) || str2num(get(handles .^ 

delPtmax, 'String ')) <0 

290 set(handles.delPtmax,' String ',' 0 '); 

291 warndlg(' Debe ser un numero mayor que O') 

292 end 

293 function delPtmax_CreateFcn(hObject, eventdata, handles) 

294 if ispc && isequal(get(hObject ,' BackgroundColor ') , get 
(0,' defaultUicontrolBackgroundColor' )) 

2 95 set(hObject, ' BackgroundColor , 'white' ); 

296 end 

297 function delPsmax_Callback(hObject, eventdata, handles) 

298 if isempty(str2num(get(handles.delPsmax, 'String ')) ) || str2num(get(handles .^ 

delPsmax, 'String ')) <0 

299 set(handles.delPsmax,' String ',' 0 '); 

300 warndlg(' Debe ser un numero mayor que O') 

301 end 

302 function delPsmax_CreateFcn(hObject, eventdata, handles) 

303 if ispc && isequal(get(hObject ,' BackgroundColor ') , get i/ 

(0, 'defaultUicontrolBackgroundColor' )) 

304 set(hObj ect, 'BackgroundColor' , 'white' ); 

305 end 

306 function Ntp_Callback(hObject, eventdata, handles) 

307 if isempty(str2num(get(handles.Ntp, 'String ')) ) || str2num(get(handles .^ 

Ntp, 'String' ))<1 

308 set(handles.Ntp, 'String' , '0' ); 

309 warndlg(' Debe ser un numero mayor o igual que 1') 

310 end 
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311 function Ntp_CreateFcn(hObject, eventdata, handles) 

312 if ispc && isequal(get(hObject, 'BackgroundColor' ), get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

313 set(hObj ect, 'BackgroundColor' , 'white' ); 

314 end 

315 function layout_SelectionChangeFcn(hObject, eventdata, handles) 

316 if get(handles.layout, 'SelectedObject' ) == handles.cuadrado 

317 set(handles.angle, 'enable' , 'on' ) 

318 else 

319 set(handles.angle, 'enable' , 'off' ) 

320 end 

321 function angle_CreateFcn(hObject, eventdata, handles) 

322 if ispc && isequal(get(hObject, 'BackgroundColor ') , get ^ 

(0, 'defaultUicontrolBackgroundColor' )) 

323 set(hObj ect, ' BackgroundColor' , 'white' ); 

324 end 

325 function angle_Callback(hObject, eventdata, handles) 

326 function Elegirpunto_CreateFcn(hObject, eventdata, handles) 

327 function Obtenerpunto_CreateFcn(hObject, eventdata, handles) 

328 function cabezal_SelectionChangeFcn(hObject, eventdata, handles) 

329 %Representacion del valor actual del slider 'pasos' 

330 function pasos_Callback(hObject, eventdata, handles) 

331 if get(hObject ,' Value ') <= 2 

332 pasos=l; 

333 else if get(hObject, Value ')== get(hObject, 'Max' ) 

334 pasos=get(hObject, 'Max' ); 

335 else 

336 pasos=fix(get(hObject, 'Value' )/2)*2; 

337 end 

338 end 

339 set(handles.text5, 'String ', pasos); 

340 function pasos_CreateFcn(hObject, eventdata, handles) 

341 if isequal(get(hObject ,' BackgroundColor '), geti^ 

(0,' defaultUicontrolBackgroundColor' )) 

342 set(hObject,' BackgroundColor 1 ,[.9 .9 .9]); 

343 end 

344 %CALCULAR 

345 %%%Funcion que se ejecuta tras la pulsacion del boton 'pushbuttonl', calcular 

346 function pushbuttonl_Callback(hObject, eventdata, handles) 

347 vtmin=str2num(get(handles.vtmin, 'String' )); 

34 8 vtmax=str2num(get(handles.vtmax, 'String' )); 

349 vsmin=str2num(get(handles.vsmin, 'String' )); 

350 vsmax=str2num(get(handles.vsmax, 'String' )); 

351 Ttin=str2num(get(handles.Ttin, 'String' )); 

352 Ttout=str2num(get(handles.Ttout, 'String' )); 

353 Tsin=str2num(get(handles.Tsin, 'String' )); 

354 Tsout=str2num(get(handles.Tsout, 'String' ) ) ; 

355 kt=str2num(get(handles.kt, 'String' )); 

356 Cpt=str2num(get(handles.Cpt, 'String' ) ) ; 

357 ks=str2num(get(handles.ks, 'String' )); 

358 Cps=str2num(get(handles.Cps, 'String ')); 

359 ROt=str2num(get(handles.ROt, 'String' )); 

360 MUtin=str2num(get(handles.MUtin, 'String' )); 
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MUtout=str2num(get(handles.MUtout, 'String' )); 

ROs=str2num(get(handles.ROs, 'String' )); 

MUsin=str2num(get(handles.MUsin, 1 String' ) ) ; 

MUsout=str2num(get(handles.MUsout, 'String' ) ) ; 

Dsmax=str2num(get(handles.Dsmax, 'String' ) ) ; 

Lmax=str2num(get(handles.Lmax, 'String' ) ) ; 
kw=str2num(get(handles.kw, 'String' ) ) ; 

Li=str2num(get(handles.Li, 'String' ) ) ; 

Lo=str2num(get(handles.Lo, 'String' )); 

Rft=str2num(get(handles.Rft,' String ')); 

Rfs=str2num(get(handles.Rfs, 'String ')); 

Mt=str2num(get(handles.Mt, 'String' )); 

Ms=str2num(get(handles.Ms, 'String' )); 

Bc=str2num(get(handles.Be, 'String' )); 
delPtmax=str2num(get(handles.delPtmax, 'String' )); 
delPsmax=str2num(get(handles.delPsmax, 'String' )); 
if get(handles.pasos ,' Value ')<= 2 
pasos=l; 

else if get(handles.pasos, 'Value ')== get(handles.pasos ,' Max' ) 
pasos=get(handles.pasos,' Max' ); 
else 

pasos=fix(get(handles.pasos, 'Value' )/2)*2; 

end 

end 

set(handles.text5, 'String ', pasos); 

Ntp=pasos; 

if get(handles.cuadrado, 'Value' )==1 
forma=2; 

if get(handles.angle,' Value ')==1 
angle=2; 

else 

angle=3; 

end 

else 

forma=l; 
angle=l; 

end 


if get(handles.Fijo, 'Value ')==1 
bundletype=l; 

else if get(handles.Flotanteexterno, 'Value' 
bundletype=2; 

else if get(handles.Anillosdivididos,' Value ') ==1 
bundletype=3; 

else 

bundletype=4; 

end 

end 

end 

%Comprobacion de que estan todos los datos, en caso de faltar alguno o ser 
%incorrecto, se detiene el programa y se vuelve a solicitar mediante un 
%mensaje de error, 
if isempty(vtmin) |I vtmin<=0 
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warndlg( 'Falta vtmin por introducin') 
return 


isempty(vtmax) || vtmax<=0 
warndlg (' Falta vtmax por introducin') 
return 


isempty(vsmin) || vsmin<=0 
warndlg (' Falta vsmin por introducin') 
return 


isempty(vsmax) || vsmax<=0 
warndlg (' Falta vsmax por introducir') 
return 

isempty(Ttin) || Ttin<=0 
warndlg (' Falta Ttin por introducir') 
return 

isempty(Ttout) || Ttout<=0 
warndlg (' Falta Ttout por introducir') 
return 

isempty(Tsin) || Tsin<=0 
warndlg (' Falta Tsin por introducir') 
return 

isempty(Tsout) || Tsout<=0 
warndlg (' Falta Tsout por introducir') 
return 


isempty(kt) || kt<=0 
warndlg ('Falta kt por introducir') 
return 


isempty(Cpt) || Cpt<=0 
warndlg (' Falta Cpt por introducir') 
return 

isempty(ks) || ks<=0 
warndlg (' Falta ks por introducir') 
return 

isempty(Cps) || Cps<=0 
warndlg (' Falta Cps por introducir') 
return 

isempty(ROt) || ROt<=0 
warndlg (' Falta ROt por introducir') 
return 

isempty(MUtin) || MUtin<=0 
warndlg (' Falta MUt por introducir') 
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end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


end 

if 


return 

isempty(MUtout) || MUtout<=0 
warndlg( 'Falta MUtout por introducir') 
return 

isempty(ROs) || ROs<=0 
warndlg ('Falta ROs por introducir') 
return 

isempty(MUsin) || MUsin<=0 
warndlg (' Falta MUs por introducir') 
return 

isempty(MUsout) || MUsout<=0 
warndlg (' Falta MUsout por introducir') 
return 

isempty(Dsmax) || Dsmax<=0 
warndlg (' Falta Dsmax por introducir') 
return 

isempty(Lmax) || Lmax<=0 
warndlg (' Falta Lmax por introducir') 
return 

isempty(kw) || kw<=0 
warndlg (' Falta kw por introducir') 
return 

isempty(Li) || Li<l 
warndlg (' Falta Li por introducir') 
return 


isempty(Lo) || Lo<l 
warndlg (' Falta Lo por introducir') 
return 


isempty(Ntp) || Ntp<=0 
warndlg (' Falta Ntp por introducir') 
return 


isempty(Rft) || Rft<0 
warndlg (' Falta Rft por introducir') 
return 


isempty(Rfs) || Rfs<0 
warndlg (' Falta Rfs por introducir') 
return 


isempty(Mt) || Mt<=0 
warndlg (' Falta Mt por introducir') 
return 
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520 end 

521 if isempty(Ms) || Ms<=0 

522 warndlg( 'Falta Ms por introducin') 

523 return 

524 end 

525 if isempty(Bc) || Bc<=0 

526 warndlg(' Falta Be por introducin') 

527 return 

528 end 

529 if isempty(delPtmax) || delPtmax<=0 

530 warndlg(' Falta delPtmax por introducir') 

531 return 

532 end 

533 if isempty(delPsmax) || delPsmax<=0 

534 warndlg(' Falta delPsmax por introducir') 

535 return 

536 end 

537 %Comprobacion de que las potencias termicas son las mismas para ambos 

538 %fluidos, y correccion del caudal masico de la carcasa en caso de no ser 

539 %asi 

540 pott=abs(Ttin-Ttout)*Cpt*Mt; 

541 pots=abs(Tsin-Tsout)*Cps*Ms; 

542 if abs(pott-pots)/pott>0.01 

543 Ms=pott/(Cps*abs(Tsin-Tsout)); 

544 set(handles.Ms, 'string ', Ms); 

545 warndlg(' Se ha corregido Ms') 

546 end 

547 %Guardado de variables en el documento variables.mat 

548 save variables.mat vtmin vtmax vsmin vsmax Ttin Ttout Tsin Tsout kt Cpt ks Cps ROtL/ 
MUtin MUtout ROs MUsin MUsout Dsmax Lmax kw Li Lo Rft Rfs Mt Ms Be delPtmax delPsmax^ 
Ntp forma angle bundletype 

549 %Se ejecuta el programa que obtiene la grafica de perdida de carga en los 

550 %tubos vs. perdida de carga en la carcasa para todas las restricciones 

551 %'programamenu', asi como la funcion para obtener el intercambiador de 

552 %minimo coste 'TACminimo' 

553 set(handles.Obtenerpunto,' Enable , 'on' ) 

554 programamenu 

555 axes(handles.axes2) 

556 imshow(' grafica.png '); 

557 TACminimo 

558 load punto 

559 if punto==0 

560 set(handles.soldelPtmin, 'String' ,' ERROR' ); 

561 set(handles.soldelPsmin, 'String' ,' ERROR' ); 

562 set(handles.solDsmin,' String' , 'ERROR' ); 

563 set(handles.solLmin, 'String' ,' ERROR' ); 

564 set(handles.solTACmin, 'String' , 'ERROR' ); 

565 set(handles.solAmin,' String' ,' ERROR' ); 

566 set(handles.solRbsmin, 'String' , 'ERROR' ); 

567 set(handles.solVtmin, 'String ', 'ERROR' ); 

568 set(handles.solVsmin,' String 1 , 'ERROR' ); 

569 set(handles.puntominTAC,' String' , 'ERROR' ) 

570 warndlg (' Ningun intercambiador cumple todas las restricciones. Puede reducirlas ^ 
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aumentando la Lmax, Dmax, n° de pasos... 

571 else 

572 load valorpunto 

573 %Tras obtener los valores del intercambiador de mlnimo coste TAC, se 

574 %representan dichos valores en la interfaz del programa 

575 TAC=TAC*0.8016; %#ok<*NODEF> %$ a € 

576 set(handles.soldelPtmin, String' ,sprintf(' %8.2f' ,delPt)); 

577 set(handles.soldelPsmin, 'String' ,sprintf(' %8.2f' ,delPs)); 

578 set(handles.solDsmin, 'String ', sprintf(' %8.2f ,Ds)); 

579 set(handles.solLmin, 'String' , sprintf(' %8.2f' ,Ltt)); 

580 set(handles.solTACmin, 'String' ,sprintf( '%8.2f' ,TAC)); 

581 set(handles.solAmin, 'String' , sprintf(’ %8.2f' ,A)); 

582 set(handles.solRbsmin, 'String' , sprintf( '%8.2f' ,Rbs)); 

583 set(handles.solVtmin, 'String' ,sprintf(' %8.2f ,vt)); 

584 set(handles.solVsmin, 'String', sprintf ('%8.2f', vs)); 

585 if punto==l 

586 set(handles.puntominTAC,' String' ,' VtminRbsmin' ) 

587 end 

588 if punto==2 

589 set(handles.puntominTAC,' String' ,' DsmaxRbsmin' ) 

590 end 

591 if punto==3 

592 set(handles.puntominTAC, 'String' ,' VtminVsmax' ) 

593 end 

594 if punto==4 

595 set(handles.puntominTAC, 'String' ,' DsmaxVsmax' ) 

596 end 

597 if punto==5 

598 set(handles.puntominTAC, 'String', ' VtmaxRbsmin' ) 

599 end 

600 if punto==6 

601 set(handles.puntominTAC, 'String',' VtmaxVsmax' ) 

602 end 

603 if punto==7 

604 set(handles.puntominTAC,' String’ ,' VtminVsmin' ) 

605 end 

606 if punto==8 

607 set(handles.puntominTAC, ' String' , ' DsmaxVsmin' ) 

608 end 

609 if punto==9 

610 set (handles.puntominTAC, 'String' , ' VtmindelPsmax' ) 

611 end 

612 end 

613 %La funcion Obtenerpunto se ejecuta al pulsar dicho boton, calculando los 

614 %parametros del punto seleccionado mediante el programa 'obtencionpunto' 

615 function Obtenerpunto_Callback(hObject, eventdata, handles) 

616 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.VtminRbsmin 

617 punto=l; 

618 end 

619 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.DsmaxRbsmin 

620 punto=2; 

621 end 

622 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.VtminVsmax 
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623 punto=3; 

624 end 

625 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.DsmaxVsmax 

626 punto=4; 

627 end 

628 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.VtmaxRbsmin 

629 punto=5; 

630 end 

631 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.VtmaxVsmax 

632 punto=6; 

633 end 

634 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.VtminVsmin 

635 punto=7; 

636 end 

637 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.DsmaxVsmin 

638 punto=8; 

639 end 

640 if get(handles.Elegirpunto, 'SelectedObject' ) == handles.VtmindelPsmax 

641 punto=9; 

642 end 

643 save punto.mat punto 

644 obtencionpunto 

645 load valorpunto 

646 %E1 valor obtenido mediante 'obtencionpunto' queda guardado en 

647 %'valorpunto.mat', que utilizamos para representar los parametros del punto 

648 %seleccionado en la interfaz del programa 

649 TAC=TAC*0.8016; %$ a € 

650 set(handles.soldelPt, 'String' ,sprintf(' %8.2f ,delPt)); 

651 set(handles.soldelPs, 'String' ,sprintf(' %8.2f ,delPs)); 

652 set(handles.solDs, 'String ',sprintf('%8.2f',Ds) ); 

653 set(handles.solL, 'String ', sprintf (' %8.2f ,Ltt)); 

654 set(handles.solTAC, 'St ring', sprintf ('%8.2f', TAC)); 

655 set(handles.solA, 'String' ,sprintf( '%8.2f ,A)); 

656 set(handles.solRbs ,' String ,sprintf (' %8.2f ', Rbs)); 

657 set(handles.solVt, 'String ', sprintf (' %8.2f ', vt)); 

658 set(handles.solVs, 'String ', sprintf (" %8.2f ', vs)); 
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%programamenu 

%permite obtener las curvas que delimitan el area factible de 
%intercambiadores, es decir, los intercambiadores que cumplen las 
%restricciones especificadas. 

%VARIABLES DE ENTRADA 

%Bc es el corte del deflector 

%Cps y Cpt son los calores especificos de ambos fluidos 
%Dsmax es el diametro maxirao de la carcasa 
%Lmax es la longitud maxima de los tubos 

%Li y Lo son las separaciones de los deflectores a la entrada y a la salida 
%MUsin, MUsout, MUtin y MUtout son las viscosidades de los fluidos a la 
%temperatura de entrada y de salida 

%Ms y Mt son los caudales masicos para ambos fluidos 
%ROs y ROt son las densidades de ambos fluidos 
%Ntp son el numero de pasos por los tubos 

%Rfs y Rft son las resistencias de ensuciamiento para ambos fluidos 
%Tsin, Tsout, Ttin y Ttout son las temperaturas de entrada y salida de los 
%fluidos 

%angle y forma determinan el layout de los tubos 
%bundletype es el tipo de cabezal 

%delPsmax y delPtmax son las perdidas de carga maximas admisibles en 
%carcasa y tubos respectivamente 

%ks y kt son las conductividades termicas de los fluidos 
%kw es la conductividad termica del material de los tubos 

%vsmax, vsmin, vtmax y vtmin son las velocidades limites para ambos fluidos 
%VARIABLES INTERNAS DEL PROGRAMA 

%Rbsmax y Rbsmin son la relacion entre la separacion de los deflectores y 
%el diametro de la carcasa maxima y minima 

%Dt y Dti son el diametro externo e interno de los tubos, respectivamente 
%Ltp es la separacion entre los tubos (tube pitch) 

%Ns es el numero de pasos por la carcasa 
%SALIDA 

%Se obtiene el grafico con las curvas Vtmin, Vtmax, Vsmin, Vsmax, Dsmax, 
%Lmax, Rbsmax y Rbsmin. Delimitando el area factible.grafica.png 
load variables 
if Ttin>Tsin 
Thi=Ttin; 

Tho=Tto; 

Tci=Tsin; 

Tco=Tsout; 

else 

Thi=Tsin; 

Tho=Tsout; 

Tci=Ttin; 

Tco=Ttout; 

end 

Ttav=(Ttin+Ttout)/2;Tsav=(Tsin+Tsout) /2 ; 

Rbsmax=l; 

Rbsmin=0.2; 

%Tube-side datos 

Dt=l9.1;Dti=15.4;Ltp=l.25*Dt ; 

layout=[forma angle]; 

Ns=l ; 
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54 S=(Tco-Tci)/(Thi-Tci);R=(Thi-Tho)/(Tco-Tci); 

55 P=(l-((R*S-1)/ (S — 1) ) A (1/Ntp) )/(R-( (R*S-1)/ (S-l) ) A (1/Ntp) ) ; 

56 F=(sqrt(R A 2+1)*log((1-P)/(1-R*P)))/((R-l)*log((2/P-l-R+sqrt(R A 2+1))/(2/P-R-l-sqrti^ 
(R A 2+1)))); 

57 while F<0.8 

58 Ntp=Ntp+l; 

59 P=(l-((R*S-1)/ (S-l) ) A (1/Ntp) )/(R-((R*S-1)/ (S-l) ) A (1/Ntp) ) ; 

60 F=(sqrt(R A 2 + 1)*log( (1-P)/(1-R*P) ) )/((R-l)*log((2/P-l-R+sqrt (R A 2 + 1) )/(2/P-R-l-sqrt^ 
(R A 2+1)))); 

61 end 

62 LMTD=((Thi-Tco)-(Tho-Tci))/log((Thi-Tco)/(Tho-Tci)); 

63 Q=Mt*abs(Ttin-Ttout)*Cpt; 

64 if layout(1)==2 

65 De=4 *(Ltp A 2-pi*Dt A 2/4)/(pi*Dt); 

66 else 

67 De=4 *(sqrt(3)*Ltp A 2/4-pi*Dt A 2/8)/(pi*Dt/2); 

68 end 

69 %TABLA A1 columnas (al a2 a3 a4 bl b2 b3 b4) filas 30° Reynodls(10 A 5-10 A 4,10 A 4- 
10 A 3,10 A 3-10 A 2, 

70 %10 A 2-10,<10) 45° (10 A 5. . .) 90°(10 A 5...) 

71 tablacoef1=[0.321 0.321 0.593 1.36 1.4 0.37 0.37 0.73 0.498 1.55 0.37 0.107 0.408^ 
0.9 0.97;-0.388 -0.388 -0.477 -0.657 -0.667 -0.396 -0.396 -0.5 -0.656 -0.667 -0.395k/ 
-0.266 -0.46 -0.631 -0.667/1.45 1.45 1.45 1.45 1.45 1.93 1.93 1.93 1.93 1.93 1.187^ 

1.187 1.187 1.187 1.187/0.519 0.519 0.519 0.519 0.519 0.5 0.5 0.5 0.5 0.5 0.37 0.37^ 

0.37 0.37 0.37; 0.372 0.486 4.57 45.1 48 0.303 0.333 3.5 26.2 32 0.391 0.0815 6.09 32.1^ 
35; -0.123 -0.152 -0.476 -0.973 -1 -0.126 -0.136 -0.476 -0.913 -1 -0.148 0.022 -0.602i/ 
-0.963 -1;7 7777 6.59 6.59 6.59 6.59 6.59 6.3 6.3 6.3 6.3 6.3; 0.5 0.5 0.5 0.5 0.5^ 
0.52 0.52 0.52 0.52 0.52 0.378 0.378 0.378 0.378 0.378]'; 

72 %TABLA 1 

73 tablacoefm=[8 39 44 87/0.01 0 0.025 0.007]'; 

74 %TABLA 2 

75 tablacoef2=[0.319 0.249 0.175 0.0743 0.0365/ 0.215 0.156 0.158 0.0402 0.0331;2.142 
2.207 2.285 2.499 2.675/2.207 2.291 2.263 2.617 2.643]'; 

76 [ml,m2]=parametrosm(tablacoefm,bundletype); 

77 [K1,n]=parametrostabla2(layout,tablacoef2,Ntp); 

78 %Calculos geometria 

79 if layout(2)==2 

80 Ltpe=0.707*Ltp; 

81 Lpp=0.707*Ltp; 

82 else if layout(2)==1 

83 Ltpe=Ltp; 

84 Lpp=0.866*Ltp; 

85 else 

86 Lpp=Ltp; 

87 Ltpe=Ltp; 

88 end 
8 9 end 

90 angleds=2*acos(1-2*(Bc/100))*360/(2*pi); 

91 m3=(m2 + l)/K1 A (1/n); 

92 MUt=MUtin;MUs=MUsin;MUtw=MUtin;MUsw=MUsin; %para empezar iteraciones 

93 Prs=Cps*MUs/(10 A 3*ks); 

94 C5=Q*10 A 6*(m3*Dt) A n/(pi*Dt*Ns*F*LMTD); 

95 C7=Dt*Rft/Dti+Dt*log(Dt/Dti)/(2*10 A 3*kw)+Rfs; 
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96 %%%%%CALCULO DE ZONA FACTIBLE 

97 %%%vtmax boundary 

98 for z=l:2 

99 if z==l 

100 curvavtmax=zeros(20,2) ; 

101 vt=vtmax; 

102 else 

103 curvavtmin=zeros (20,2); 

104 vt=vtmin; 

105 end 

106 Ret=ROt*vt*Dti/MUt; 

107 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

108 Ds=ml+m3*Dt*(Ntt) A (1/n); 

109 Lts=0.l*Ds; 

110 if Lts<25 

111 Lts=25; 

112 end 

113 Dotl=Dt*(Ntt/Kl) A (1/n); 

114 Lbb=Ds-Dotl; 

115 Dctl=Dotl-Dt; 

116 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

117 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

118 if Ret<=2100 

119 ac=0.35; 

120 Kt=l6; 

121 mt=-l; 

122 else if Ret>10 A 5 

123 ac=0.14; 

124 Kt=0.046; 

125 mt=-0.2; 

126 else 

127 ac=0.14; 

128 Kt=0.0791; 

129 mt=-0.25; 

130 end 

131 end 

132 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

133 C2=1.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

134 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

135 Swt=Ntt*Ftw*pi/4*Dt A 2; 

136 Sw=Swg-Swt; 

137 vs=vsmin; 

138 Res=ROs*vs*De/MUs; 

139 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

140 a=a3/(l+0.14*Res A (a4)); 

141 b=b3/(1+0.14*Res A (b4)); 

142 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

143 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

144 Lbc0=0.5*Ds; 

145 Sm0=Lbc0*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

146 Lta0=1500; 

147 Nb0=(LtaO-LbcO*(Li+Lo))/Lbc0+1; 
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148 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

149 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

150 KslO=(SmO/Sw)*((1+0.3*Ntcw)*NbO*ROs)/((NbO+1)*Ds); %considerando parametros R=1 

151 Ks20=((NbO-1)/(NbO+1)+((Ntcc+Ntcw)/(Ntcc*(NbO+1))))*(1-2*(Bc/100))*(2*ROs*cp )/* 

((MUs/MUsw) A — 0.14 *Lpp); 

152 Rp=-b2/(KslO/(Ks20*vs A b2)+1); 

153 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps; %considerando Jtot=l 

154 %C4 y C3 aproximacion para empezar a iterar de Muralikrishna y Sehnoy 

155 C3=2*0.4475*De A -l.19*Ns*Ms A l.81/(MUs A -0.19*ROs*(MUs/MUsw) A 0.14*(1-Dt/Ltp) A 1.81); 

156 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

157 %OBTENCION DE 20 PUNTOS PARA LA GRAFICA delPt vs delPs 

158 for x=20:-1:1 

159 delPt=(x/20)*delPtmax; 

160 Ltt=(delPt-C2/(Ds-ml) A (2*n))*(Ds-ml) A (n*(2+mt))/Cl; 

161 Lta=Ltt-2*Lts; 

162 Rp0=0;Ks4 0=0;C30=0;C4 0=0;vs0=0;contador=0; 

163 %bucle de iteracion para obtener las variables 

164 while contador<1000 && (abs ( (vs-vsO) / vs) >0.01 II abs((C3-C30)/C3)>0.01 || abs((C4-i2' 
C40)/C4)>0.01 || abs((Ks4-Ks40)/Ks4)>0.01 || abs((Rp-RpO)/Rp)>0.01); 

165 contador=contador+l; 

166 %mientras la variacion de alguna variable sea mayor que un maximo (1%) se 

167 %continua ejecutando el bucle 

168 Rp0=Rp;Ks40=Ks4;C30=C3;C4 0=C4;vs0=vs; 

169 if Ret<=2100 

170 C6 = 1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

171 Rbs=((Lta*(Ds-ml) A n/C5-C7-(Lta A (1/3)*(Ds-ml) A (n/3))/C6)*C4/Ds A (l+a2)) A (1 /^ 

(l+a2)); 

172 else if Ret>10000 

173 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (1/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8* ^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

174 Rbs=((Lta*(Ds-ml) A n/C5-C7-(Ds-ml) A (0.8*n)/CIO)*C4/Ds A (l+a2)) A (1/(l+a2)); 

175 else 

176 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

177 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

17 8 Rbs=((Lta*(Ds-ml) A n/C5-C7-1/(C8*(1+(Dti/Lta) A (2/3))*(C9/(Ds-ml) A (2*n/3) i/ 

-125)))*C4/Ds A (l+a2)) A (1/(l+a2)); 

179 end 

180 end 

181 Rbs=real(Rbs); 

183 Lbc=Rbs*Ds; 

184 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1 ; 

185 vs=(hs/Ks4) A (1/(l+a2)); 

186 Res=ROs*vs*De/MUs; 

187 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

188 a=a3/(1+0.14*Res A (a4)); 

189 b=b3/(1+0.14*Res A (b4)); 

190 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

191 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

192 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

193 %CORRECTION FACTORS for heat transfer and pressure drop 

194 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc,^ 
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Lpp,Lbc,Res,Nb,Sm); 

195 %Shell-side pressure drop, Calculo Rp y C3 

196 if Res>=100 %turbulento 

197 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

198 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Be/100))*(2*Rb*ROs*cp)/ ■/ 
( (MUs/MUsw) A -0.14 *Lpp) ; 

199 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

200 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

201 else%laminar 

202 Ntw=Ntt*Ftw; 

203 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2) ; 

204 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

205 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

206 k3=((Nb-1)*R1/(Nb+1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/ 1 / 

( (MUs/MUsw) A -0.14 *Lpp) ; 

207 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

208 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

209 end 

210 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

211 %Shell-side heat transfer coefficient, Calculo Ks4, C4 

212 Prs=Cps*MUs/(10 A 3*ks); 

213 Prt=Cpt*MUt/(10 A 3*kt); 

214 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

215 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

216 if Ret<=2100 

217 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

218 else if Ret>10000 

219 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

220 else 

221 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

222 end 

223 end 

224 Tw=real(Ttav+(Tsav-Ttav)/(1+ht/hs)); 

225 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

226 end 

227 if Nb<0 && contador>l 

228 delPs=0; 

229 else 

230 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

231 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

232 end 

233 if isnan(delPs) 

234 delPs=10*delPsmax; 

235 end 

236 if z==l 

237 curvavtmax(x,1)=delPt; 

238 if imag(delPs)==0 && delPs>0 

239 curvavtmax(x,2)=delPs; 

240 else if x<20 

241 curvavtmax(x,2)=curvavtmax(x+1,2); 

242 else 
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243 curvavtmax(x,2)=0; 

244 end 

245 end 

246 else 

247 curvavtmin(x,1)=delPt; 

248 if imag(delPs)==0 && delPs>0 

249 curvavtmin(x,2)=delPs; 

250 else if x<20 

251 curvavtmin(x,2)=curvavtmin(x+1,2); 

252 else 

253 curvavtmin(x,2)=0; 

254 end 

255 end 

256 end 

257 end 

258 end 

259 %%%vsmax vsmin boundary 
2 60 i=0; j =0; 

261 for z=l:2 

262 if z ——1 

263 vs=vsmax; 

264 else 

265 vs=vsmin; 

266 end 

267 Res=vs*De*ROs/MUs; 

268 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2) ,tablacoefl) ; 

269 a=a3/(1+0.14*Res A (a4)); 

270 b=b3/(1+0.14*Res A (b4)); 

271 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

272 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

273 for x=l:20 

274 Ds=(x/20)*Dsmax; 

275 Ntt=((Ds-ml)/(m3*Dt)) A n; 

276 Dotl=Dt*(Ntt/Kl) A (1/n); 

277 Lbb=Ds-Dotl; 

278 Dctl=Dotl-Dt; 

279 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

280 Rbs=Lbc/Ds; 

281 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

282 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

283 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

284 Swt=Ntt*Ftw*pi/4*Dt A 2; 

285 Sw=Swg-Swt; 

286 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

287 vt = 4* 10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt) ; 

288 Ret=ROt*vt*Dti/MUt; 

289 if Ret<=2100 

290 ac=0.35; 

291 Kt=16; 

292 mt=-l; 

293 else if Ret>10 A 5 

294 ac=0.14; 

295 Kt=0.046; 
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296 

o 

1 

II 

-p 

6 

.2; 

297 

else 


298 

ac=0 . 

14; 

299 

ft 

II 

O 

0791; 

300 

o 

1 

II 

-p 

£ 

.25; 

301 

end 


302 

end 



303 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt *^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

304 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

305 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps; %considerando Jtot=l 

306 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

307 Ks40=0;C40=0;contador=0; 

308 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

309 Nb0=5; 

310 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

311 Ksl0=(Sm/Sw)*((1+0.3*Ntcw)*NbO*ROs)/((Nb0+1)*Ds); %considerando parametros R=1 

312 Ks20=((Nb0-1)/(Nb0 + 1) + ((Ntcc+Ntcw)/(Ntcc*(Nb0 + 1) )))*(1-2*(Bc/100))*(2*ROs*cp)/ vf 
((MUs/MUsw) A -0.14*Lpp); 

313 Rp=-b2/(KslO/(Ks20*vs A b2)+1); 

314 Rp0=0; 

315 C3=2*0.4475*De A -l.19*Ns*Ms A l.81/(MUs A -0.19*ROs*(MUs/MUsw) A 0.14*(1-Dt/Ltp) A 1.81); 

316 C30=0; 


317 syms Ltaa; 

318 Lta=1000; 

319 options=optimset(' Display' , 'off' ); 

320 %bucle de iteracion para obtener las variables 

321 while contador<1000 && (abs((C3-C30)/C3)>0.01 || abs((C4-C40)/C4)>0.01 || abs((Ks4-^ 
Ks40)/Ks4)>0.01 || abs((Rp-RpO)/Rp)>0.01); 

322 contador=contador+l;C30=C3;C40=C4;Ks40=Ks4;Rp0=Rp; 

323 if Ret<=2100 

324 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

325 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 1 ^ 
ml) A (n/3)/C6+C7),Lta,options); 

326 else if Ret>10000 

327 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8* ^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

328 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

329 else 

330 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

331 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

332 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(l+i^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

333 end 

334 end 

335 Lts=0.1*Ds; 

336 if Lts<25 

337 Lts=25; 

338 end 

339 Ltt=Lta+2*Lts; 

340 Nb=fix((Lta-Lbc*(Li+Lo))/Lbc)+2; 

341 if isreal(Nb)==0 
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342 delPt=0; 

343 break 

344 end 

345 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

346 %CORRECTION FACTORS for heat transfer and pressure drop 

347 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

348 %Shell-side pressure drop, Calculo Rp y C3 

349 if Res>=2100 %turbulento 

350 Ks1=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

351 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Be/100))*(2*Rb*ROs*cp )/S 
((MUs/MUsw) A -0.14 *Lpp); 

352 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

353 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

354 else%laminar 

355 Ntw=Ntt*Ftw; 

356 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2 ) ; 

357 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm) )*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2) ; 

358 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

359 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14*Lpp) ; 

360 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

361 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

362 end 

363 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) 

/Ltpe)) A (2-Rp); 

364 Prs=Cps*MUs/(10 A 3*ks); 

365 Prt=Cpt*MUt/(10 A 3*kt); 

366 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

367 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

368 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

369 if Ret<=2100 

370 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

371 else if Ret>10000 

372 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

373 else 

374 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

375 end 

376 end 

377 if isnan(hs)==0 

379 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

380 end 

381 end 

382 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

383 if z==l 

384 if delPt~=0 

385 i=i+l; 

386 curvavsmax(i,1)=real(delPt); %#ok<*SAGROW> 

387 curvavsmax(i,2)=real(delPs); 

388 end 

389 else 


159 



programamenu.m 


ANEXO. CODIGO DE LAS APLICACIONES DE MATLAB 



9 of 18 


390 

391 

392 

393 

394 


if delPt~=0 


j=j+i; 

curvavsmin(j , 1)=real(delPt); 
curvavsmin(j,2)=real(delPs); 
end 


395 end 

396 end 

397 end 

398 %%Dsmax boundary 

399 Ds=Dsmax; 

400 Ntt=fix(((Ds-ml)/(m3*Dt)) A n/Ntp)*Ntp; 

401 Dotl=Dt*(Ntt/Kl) A (1/n); 

402 Lbb=Ds-Dotl; 

403 Dctl=Dotl-Dt; 

404 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

405 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

406 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

407 Swt=Ntt*Ftw*pi/4*Dt A 2; 

408 Sw=Swg-Swt; 

409 vs=l; 

410 Res=ROs*vs*Dt/MUs; %De en mm 

411 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

412 a=a3/(1 + 0.14*Res A (a4) ); 

413 b=b3/(1+0.14*Res A (b4)); 

414 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

415 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

416 Lbc0=0.5*Ds; %valor inicial para Lbc 

417 Sm0=Lbc0*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

418 Lta0=1500;Nb0=(LtaO-LbcO*(Li+Lo))/Lbc0+1; 

419 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

420 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

421 Ksl0=(SmO/Sw)*((1+0.3*Ntcw)*NbO*ROs)/((Nb0+1)*Ds); %considerando parametros R=1 

422 Ks20=((Nb0-1)/(Nb0+1)+((Ntcc+Ntcw)/(Ntcc*(Nb0+1))))*(1-2*(Bc/100))*(2*ROs*cp)/k/ 
((MUs/MUsw) A -0.14*Lpp); 

423 Rp=-b2/(KslO/(Ks20*vs A b2)+1); 

424 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps; %considerando Jtot=l 

425 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

426 Ret=ROt*vt*Dti/MUt; 

427 if Ret<=2100 

428 ac=0.35; 

429 Kt=16; 

430 mt=-l; 

431 else if Ret>10 A 5 

432 ac=0.14; 

433 Kt=0.046; 

434 mt=-0.2; 

435 else 

436 ac=0.14; 

437 Kt=0.0791; 

438 mt=-0.25; 

439 end 

440 end 

441 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
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(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

442 C2=l,25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

443 C3=2*0.4475*De A -l.19*Ns*Ms A l.81/(MUs A -0.19*ROs*(MUs/MUsw) A 0.14*(1-Dt/Ltp) A 1.81); 

444 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A - (l+a2); 

445 for x=20:-1:1 

446 delPt=(x/20)*delPtmax; 

447 Lts=0.l*Ds; 

448 if Lts<25 

449 Lts=25; 

450 end 

451 Ltt=(delPt-C2/(Ds-ml) A (2*n))*(Ds-ml) A (n*(2+mt))/Cl; 

452 Lta=Ltt-2 *Lts; 

453 Rp0=0; 

454 Ks40=0; 

455 C30=0; 

456 C40=0; 

457 vs 0=0; 

458 contador=0; 

459 %bucle de iteracion para obtener las variables 

460 while contador<1000 && (abs((vs-vsO)/vs)>0.01 || abs((C3-C30)/C3)>0.01 || abs ( (C4-i^ 
C40)/C4)>0.01 || abs((Ks4-Ks40)/Ks4)>0.01 || abs((Rp-RpO)/Rp)>0.01); 

461 contador=contador+l; 

462 %mientras la variacion de alguna variable sea mayor que un maximo (1%) se 

463 %continua ejecutando el bucle 

464 Rp0=Rp;Ks40=Ks4;C30=C3;C40=C4;vs0=vs; 

465 %Calculo Rbs 

466 if Ret<=2100 

4 67 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

468 Rbs=((Lta*(Ds-ml) A n/C5-C7-(Lta A (1/3)*(Ds-ml) A (n/3))/C6)*C4/Ds A (l+a2)) A (1 /^ 
(l+a2) ) ; 

469 else if Ret>10000 

470 C10=27*kt/Dt* (Cpt*MUt/(10 A 3*kt)) A (1/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8* i/ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

471 Rbs=((Lta*(Ds-ml) A n/C5-C7-(Ds-ml) A (0.8*n)/CIO)*C4/Ds A (l+a2)) A (1/(l+a2)); 

472 else 

473 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

474 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

475 Rbs=((Lta*(Ds-ml) A n/C5-C7-1/(C8*(1+(Dti/Lta) A (2/3))*(C9/(Ds-ml) A (2*n/3) ^ 
-125)) )*C4/Ds A (l+a2) ) A (1/ (l+a2)); 

476 end 

477 end 

478 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

479 Lbc=Rbs*Ds; 

480 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1 ; 

481 vs=(hs/Ks4) A (1/(l+a2)); 

482 %Calculo Reynolds shell 

483 Res=ROs*vs*Dt/MUs; 

484 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

485 a=a3/(1+0.14*Res A (a4)); 

486 b=b3/(1+0.14*Res A (b4)); 

487 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

488 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 
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489 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

490 %CORRECTION FACTORS for heat transfer and pressure drop 

491 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

492 %Shell-side pressure drop, Calculo Rp y C3 

493 if Res>=100 %turbulento 

494 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

4 95 Ks2=( (Nb-1)/(Nb+1)*R1 +( (Ntcc+Ntcw)/(Ntcc*(Nb+1) )*Rs) )*(1-2* (Bc/100) )*(2*Rb*ROs*cp)/ 
( (MUs/MUsw) A -0.14 *Lpp); 

496 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

497 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

498 else%laminar 

499 Ntw=Ntt*Ftw; 

500 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2 ) ; 

501 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

502 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

503 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

((MUs/MUsw) A -0.14*Lpp); 

504 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

505 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

506 end 

507 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) k/ 
/Ltpe)) A (2-Rp); 

508 %Shell-side heat transfer coefficient, Calculo Ks4, C4 

509 Prs=Cps*MUs/(10 A 3*ks); 

510 Prt=Cpt*MUt/(10 A 3*kt); 

511 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

512 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

513 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

514 if Ret<=2100 

515 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

516 else if Ret>10000 

517 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

518 else 

519 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

520 end 

521 end 

522 if isnan(hs)==0 

523 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

524 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, k/ 
Tsout,ROt,ROs); 

525 end 

526 end 

527 if Lta<0 

528 delPs=10*delPsmax; 

529 end 

530 %Calculo deltaPs 

531 curvadsmax(x,1)=real(delPt); 

532 if real(delPs)<0 || real(Rbs)<0 || isnan(delPs) 

533 curvadsmax(x,2)=0; 

534 else 

535 curvadsmax(x,2)=real(delPs); 

536 end 
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537 if x<20 && curvadsmax(x+1,2)>delPs 

538 curvadsmax(x,2)=curvadsmax(x+1,2); 

539 end 

540 end 

541 %Lmax boundary 

542 Ltt=Lmax; 

543 curvalmax=zeros(20,2); 

544 for x=l:20 

545 Ds=Dsmax*(x/23); 

546 Ntt=((Ds-ml)/(m3*Dt)) A n; 

547 Dotl=Dt*(Ntt/Kl) A (1/n); 

548 Lbb=Ds-Dotl; 

549 Dctl=Dotl-Dt; 

550 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

551 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

552 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

553 Swt=Ntt*Ftw*pi/4*Dt A 2; 

554 Sw=Swg-Swt; 

555 vs=vsmax; %inventada para empezar 

556 Res=ROs*vs*De/MUs; %De en mm 

557 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

558 a=a3/(1+0.14*Res A (a4)); 

559 b=b3/(1+0.14*Res A (b4)); 

560 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

561 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

562 Lts=0.1*Ds; 

563 if Lts<25 

564 Lts=25; 

565 end 

566 Lta=Ltt-2*Lts; 

567 vt=4* 10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

568 Ret=ROt*vt*Dti/MUt; 

569 if Ret<=2100 

570 ac=0.35; 

571 Kt=l6; 

572 mt=-l; 

573 else if Ret>10 A 5 

574 ac=0.14; 

575 Kt=0.046; 

576 mt=-0.2; 

577 else 

578 ac=0.14; 

579 Kt=0.0791; 

580 mt=-0.25; 

581 end 

582 end 

5 83 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

584 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

585 Lbc0=0.5*Ds; %valor inicial para Lbc 

586 Nb0=(Lta-LbcO*(Li+Lo))/Lbc0+1; 

587 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

588 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 
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589 SmO=LbcO*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

590 Ksl0=(SmO/Sw)*((1+0.3*Ntcw)*NbO*ROs)/((Nb0+1)*Ds); %considerando parametros R=1 

591 Ks20=((Nb0-1)/(Nb0 + 1) + ((Ntcc+Ntcw)/(Ntcc*(Nb0 + 1))))*(1-2*(Bc/100))*(2*ROs*cp)/ i/ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

592 Rp=-b2/(KslO/(Ks20*vs A b2)+1); 

593 C3=2*0.4475*De A -l.19*Ns*Ms A l.81/(MUs A -0.19*ROs*(MUs/MUsw) A 0.14*(1-Dt/Ltp) A 1.81); 

594 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps; %considerando Jtot=l 

595 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

596 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

597 Rp0=0; 

598 Ks40=0; 

599 C30=0; 

600 C40=0; 

601 vs0=0; 

602 a20=0; 

603 contador=0; 

604 %bucle de iteracion para obtener las variables 

605 while contador<1000 && (abs((vs-vsO)/vs)>0.01 | | abs((C3-C30)/C3)>0.01 | | abs((C4-i/ 
C40)/C4)>0.01 || abs((Ks4-Ks40)/Ks4)>0.01 || abs((Rp-RpO)/Rp)>0.01); 

606 contador=contador+l; 

607 Rp0=Rp;%no se utiliza 

608 Ks40=Ks4; 

609 C30=C3;%no se utiliza 

610 C40=C4; 

611 vs0=vs; 

612 

613 %Calculo Rbs 

614 if Ret<=2100 

615 C6=18 60*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* i/ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

616 Rbs=((Lta*(Ds-ml) A n/C5-C7-(Lta A (1/3)*(Ds-ml) A (n/3))/C6)*C4/Ds A (l+a2)) A (l/*' 

(l+a2)); 

617 else if Ret>10000 

618 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8* ^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

619 Rbs=((Lta*(Ds-ml) A n/C5-C7-(Ds-ml) A (0.8*n)/CIO)*C4/Ds A (l+a2)) A (1/(l+a2)); 

620 else 

621 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

622 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

623 Rbs=((Lta*(Ds-ml) A n/C5-C7-1/(C8*(1+(Dti/Lta) A (2/3))*(C9/(Ds-ml) A (2*n/3) ^ 


624 


end 


625 end 

626 Rbs=real(Rbs) ; 

627 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

628 Lbc=Rbs*Ds; 

629 Nb=fix((Lta-Lbc*(Li+Lo))/Lbc+1)+1; 

630 vs=(hs/Ks4) A (1/(l+a2)); 

631 %Calculo Reynolds shell 

632 Res=ROs*vs*De/MUs; 

633 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

634 a=a3/(1 + 0.14*Res A (a4)); 

635 b=b3/(1+0.14*Res A (b4)); 
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636 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

637 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

638 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

639 

640 %CORRECTION FACTORS for heat transfer and pressure drop 

641 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

642 

643 %Shell-side pressure drop, Calculo Rp y C3 

644 if Res>=100 %turbulento 

645 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

64 6 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Be/100))*(2*Rb*ROs*cp)/ ■>' 
((MUs/MUsw) A -0.14*Lpp); 

647 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

648 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

649 else%laminar 

650 Ntw=Ntt*Ftw; 

651 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2 ) ; 

652 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

653 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

654 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

655 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

656 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

657 end 

658 C3=((Nb+1)/((Nb-1) + (Li + Lo) ) )*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 

659 Prs=Cps*MUs/(10 A 3*ks); 

660 Prt=Cpt*MUt/(10 A 3*kt); 

661 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

662 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

663 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

664 if Ret<=2100 

665 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

666 else if Ret>10000 

667 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

668 else 

669 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

670 end 

671 end 

672 if isnan(hs)==0 

673 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

674 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

675 end 

676 end 

677 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

678 %Calculo deltaPs 

679 curvalmax(x,1)=real(delPt); 

680 if real(delPs)<0 || real(Rbs)<0 

681 curvalmax(x,2)=0; 

682 else 

683 curvalmax(x,2)=real(delPs); 
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684 end 

685 end 

686 %Rbs boundary 

687 j =0;i=0; 

688 for z=l:2 

689 if z==l 

690 Rbs=Rbsmax; 

691 else 

692 Rbs=Rbsmin; 

693 end 

694 for x=l:20 

695 Ds=Dsmax*(x/20); 

696 Lbc=Rbs*Ds; 

697 Ntt=((Ds-ml)/(m3*Dt)) A n; 

698 Dotl=Dt*(Ntt/Kl) A (1/n); 

699 Lbb=Ds-Dotl; 

700 Dctl=Dotl-Dt; 

701 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

702 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

703 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

704 Swt=Ntt*Ftw*pi/4*Dt A 2; 

705 Sw=Swg-Swt; 

706 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)) ; 

707 vs=Ms*10 A 6/(ROs*Sm); 

708 Res=ROs*vs*De/MUs; %De en mm 

709 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

710 a=a3/(1 + 0.14*Res A (a4)); 

711 b=b3/(1+0.14*Res A (b4)); 

712 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

713 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

714 Lts=0.l*Ds; 

715 if Lts<25 

716 Lts=25; 

717 end 

718 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

719 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

720 Ret=ROt*vt*Dti/MUt; 

721 if Ret<=2100 

722 ac=0.35; 

723 Kt=16; 

724 mt=-1; 

725 else if Ret>10 A 5 

726 ac=0.14; 

727 Kt=0.046; 

728 mt=-0.2; 

729 else 

730 ac=0.14; 

731 Kt=0.0791; 

732 mt=-0.25; 

733 end 

734 end 

735 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 
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736 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

737 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps; %considerando Jtot=l 

738 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

739 Ks40=0; 

740 C40=0; 

741 contador=0; 

742 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

743 C3=2*0.4475*De A -l.19*Ns*Ms A l.81/(MUs A -0.19*ROs*(MUs/MUsw) A 0.14*(1-Dt/Ltp) A 1.81); 

744 C3 0=0; 

745 syms Lta 

746 options=optimset( 'Display' , 'off' ); 

747 Lta=1000; 

748 %bucle de iteracion para obtener las variables 

749 while contador<100 && (abs((C3-C30)/C3)>0.01 || abs((C4-C40)/C4)>0.01 || abs ( (Ks4-i^ 
Ks40)/Ks4)>0.01 ); 

7 50 contador=contador+l;C30=C3;C4 0=C4;Ks4 0=Ks4 ; 

751 if Ret<=2100 

7 52 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* i/ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

753 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds-^ 
ml) A (n/3)/C6+C7),Lta,options); 

754 else if Ret>10000 

7 55 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8* ^ 

(m3 *Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

756 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

757 else 

758 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

759 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

760 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* (1+S 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

761 end 

762 end 

763 Lts=0.1*Ds; 

764 if Lts<25 

765 Lts=25; 

766 end 

767 Ltt=Lta+2*Lts; 

768 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

769 if isreal(Nb)==0 || real(Ltt)<l 

770 delPt=0; 

771 break 

772 end 

773 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

774 %CORRECTION FACTORS for heat transfer and pressure drop 

775 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc,» 
Lpp,Lbc,Res,Nb,Sm); 

776 %Shell-side pressure drop, Calculo Rp y C3 
111 if Res>=100 %turbulento 

778 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

77 9 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/ ' : 
( (MUs/MUsw) A — 0.14 *Lpp) ; 

780 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

781 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 
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782 else%laminar 

783 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

784 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

785 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

786 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

787 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

788 end 

789 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

790 Prs=Cps*MUs/(10 A 3*ks); 

791 Prt=Cpt*MUt/(10 A 3*kt); 

792 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

793 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

794 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

795 if Ret<=2100 

796 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

797 else if Ret>10000 

798 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

799 else 

800 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

801 end 

802 end 

803 if isnan(hs)==0 

804 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

805 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, i/ 
Tsout,ROt,ROs); 

806 end 

807 end 

808 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

809 if z——1 

810 if delPt~=0 

811 i=i+l; 

812 curvarbsmax(i,1)=real(delPt); 

813 curvarbsmax(i,2)=real(delPs); 

814 end 

815 else 

816 if delPt~=0 

817 j=j+l; 

818 curvarbsmin(j,1)=real(delPt); 

819 curvarbsmin(j,2)=real(delPs); 

820 end 

821 end 

822 end 

823 end 

824 f=figure(l); 

825 plot(curvavtmax(:,1),curvavtmax(:,2),curvavtmin(:,1),curvavtmin (:,2)iS 

curvavsmax {:,!), curvavsmax(:,2), 1 -. ',curvavsmin(:,1),curvavsmin(:,2),curvadsmax(:,1), i/ 
curvadsmax {:,2), .’, curvalmax(:,1),curvalmax(:,2),curvarbsmax(:,1),curvarbsmax(:,2 ),^ 

curvarbsmin(:,1),curvarbsmin (:,2), .'); 

826 axis([0,delPtmax,0,delPsmax]); 

827 legend^ 

( 'vtmax' , 'vtmin' , 'vsmax' , 'vsmin' , 'Dsmax' , 'Lmax' , 'Rbsmax' , 'Rbsmin' , 'Location' , 'NorthEast ^ 
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Outside' ); 

828 xlabel (' Perdida de carga en los tubos (Pa) ') 

829 ylabel (' Perdida de carga en la carcasa (Pa) ') 

830 h=getframe(gcf);set(gcf, 'Visible' , 'off') 

831 imwrite(h.cdata, 'grafica.png' ); 
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1 %Obtencion de las dimensiones una vez conocida la solucion 

2 %VARIABLES DE ENTRADA 

3 %Bc es el corte del deflector 

4 %Cps y Cpt son los calores especificos de ambos fluidos 

5 %Dsmax es el diametro maximo de la carcasa 

6 %Lmax es la longitud maxima de los tubos 

7 %Li y Lo son las separaciones de los deflectores a la entrada y a la salida 

8 %MUsin, MUsout, MUtin y MUtout son las viscosidades de los fluidos a la 

9 %temperatura de entrada y de salida 

10 %Ms y Mt son los caudales masicos para ambos fluidos 

11 %ROs y ROt son las densidades de ambos fluidos 

12 %Ntp son el numero de pasos por los tubos 

13 %Rfs y Rft son las resistencias de ensuciamiento para ambos fluidos 

14 %Tsin, Tsout, Ttin y Ttout son las temperaturas de entrada y salida de los 

15 %fluidos 

16 %angle y forma determinan el layout de los tubos 

17 %bundletype es el tipo de cabezal 

18 %delPsmax y delPtmax son las perdidas de carga maximas admisibles en 

19 %carcasa y tubos respectivamente 

20 %ks y kt son las conductividades termicas de los fluidos 

21 %kw es la conductividad termica del material de los tubos 

22 %vsmax, vsmin, vtmax y vtmin son las velocidades limites para ambos fluidos 

23 %punto es el numero que indica que interseccion de la grafica se quiere 

24 %obtener 

25 %VARIABLES INTERNAS DEL PROGRAMA 

26 %Rbsmax y Rbsmin son la relacion entre la separacion de los deflectores y 

27 %el diametro de la carcasa maxima y minima 

28 %Dt y Dti son el diametro externo e interno de los tubos, respectivamente 

29 %Ltp es la separacion entre los tubos (tube pitch) 

30 %Ns es el numero de pasos por la carcasa 

31 %SALIDA 

32 %Se obtienen los siguientes parametros del punto seleccionado 

33 %delPt y delPs son la perdida de carga en los tubos y en la carcasa, 

34 %respectivamente 

35 %A es el area en la que se produce intercambio de calor 

36 %TAC es el coste total anualizado del intercambiador 

37 %Ltt es la longitud de los tubos 

38 %Ds es el diametro de la carcasa 

39 %Rbs es la relacion entre la separacion de los deflectores y el diametro de 

40 %la carcasa 

41 %vs y vt son las velocidades de los fluidos en la carcasa y en los tubos, 

42 %respectivamente 

43 load punto 

44 load variables 

45 if Ttin>Tsin 

46 Thi=Ttin; 

47 Tho=Tto; 

4 8 Tci=Tsin; 

49 Tco=Tsout; 

50 else 

51 Thi=Tsin; 

52 Tho=Tsout; 

53 Tci=Ttin; 
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54 


Tco=Ttout; 


55 end 

56 Rbsmax=l; 

57 Rbsmin=0.2; 

58 Dt=19.1; 

59 Dti=15.4; 

60 Ltp=l. 25*Dt; 

61 layout=[forma angle]; 

62 Ns=l; 

63 S= (Tco-Tci)/(Thi-Tci); 

64 R=(Thi-Tho)/(Tco-Tci); 

65 P= (1-( (R*S-1) / (S-l) ) A (1/Ntp) ) / (R- ( (R*S-1) / (S-l) ) A (1/Ntp) ) ; 

66 F=(sqrt(R A 2+1)*log((1-P)/(1-R*P)))/((R-l)*log((2/P-l-R+sqrt(R A 2+1))/(2/P-R-l-sqrfcO 
(R A 2+1)))); 

67 while F<0.8 

68 Ntp=Ntp+l; 

69 P= (1- ( (R*S-1) / (S-l) ) A (1/Ntp) ) / (R- ( (R*S-1) / (S-l) ) A (1/Ntp) ) ; 

70 F=(sqrt(R A 2+1)*log((1-P)/(1-R*P)))/((R-l)*log((2/P-l-R+sqrt(R A 2+1))/(2/P-R-l-sqrtEF 
(R A 2+1)))); 

71 end 

72 LMTD=((Thi-Tco)-(Tho-Tci))/log((Thi-Tco)/(Tho-Tci)); 

73 Q=Mt*abs(Ttin-Ttout)*Cpt; 

74 if layout(1)==2 

75 De=4*(Ltp A 2-pi*Dt A 2/4)/(pi*Dt); 


76 else 

77 De=4 *(sqrt(3)*Ltp A 2/4-pi*Dt A 2/8)/(pi*Dt/2); 
7 8 end 


79 %TABLA A1 columnas (al a2 a3 a4 bl b2 b3 b4) filas 30° Reynodls(10 A 5-10 A 4,10 A 4 - ^ 
10 A 3,10 A 3-10 A 2, 

80 %10 A 2-10,<10) 45° (10 A 5 . . . ) 90°(10 A 5...) 

81 tablacoefl = [0.321 0.321 0.593 1.36 1.4 0.37 0.37 0.73 0.498 1.55 0.37 0.107 0.408>- 
0.9 0.97;-0.388 -0.388 -0.477 -0.657 -0.667 -0.396 -0.396 -0.5 -0.656 -0.667 -0.395^ 
-0.266 -0.46 -0.631 -0.667/1.45 1.45 1.45 1.45 1.45 1.93 1.93 1.93 1.93 1.93 \ .131 ^ 

1.187 1.187 1.187 1.187;0.519 0.519 0.519 0.519 0.519 0.5 0.5 0.5 0.5 0.5 0.37 0.37^ 

0.37 0.37 0.37; 0.372 0.486 4.57 45.1 48 0.303 0.333 3.5 26.2 32 0.391 0.0815 6.09 32.1^ 
35; -0.123 -0.152 -0.476 -0.973 -1 -0.126 -0.136 -0.476 -0.913 -1 -0.148 0.022 -0.602^ 
-0.963 -1;7 7777 6.59 6.59 6.59 6.59 6.59 6.3 6.3 6.3 6.3 6.3; 0.5 0.5 0.5 0.5 0.5^ 
0.52 0.52 0.52 0.52 0.52 0.378 0.378 0.378 0.378 0.378]'; 

82 %TABLA 1 

83 tablacoefm=[8 39 44 87;0.01 0 0.025 0.007]'; 

84 %TABLA 2 

85 tablacoef2=[0.319 0.249 0.175 0.0743 0.0365; 0.215 0.156 0.158 0.0402 0.0331;2.142Ef 
2.207 2.285 2.499 2.675;2.207 2.291 2.263 2.617 2.643]'; 

86 [ml,m2]=parametrosm(tablacoefm,bundletype); 

87 [K1,n]=parametrostabla2(layout,tablacoef2,Ntp); 

88 %Calculos geometria 

89 if layout(2)==2 

90 Ltpe=0.707*Ltp; 

91 Lpp=0.707*Ltp; 

92 else if layout(2)==1 

93 Ltpe=Ltp; 

94 Lpp=0.866*Ltp; 


95 


else 
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96 

97 


Lpp=Ltp; 

Ltpe=Ltp; 


98 


end 


99 end 

100 angleds=2*acos(1-2*(Bc/100))*360/(2*pi); 

101 m3=(m2+l)/K1 A (1/n); 

102 MUt=MUtin;MUs=MUsin;MUtw=MUtin;MUsw=MUsin; %para empezar iteraciones 

103 C5=Q*10 A 6*(m3*Dt) A n/(pi*Dt*Ns*F*LMTD); 

104 C7=Dt*Rft/Dti+Dt*log(Dt/Dti)/(2*10 A 3*kw)+Rfs; 

105 Prs=Cps*MUs/(10 A 3*ks); 

106 Prt=Cpt*MUt/(10 A 3*kt); 

107 Ttav=(Ttin+Ttout)/2;Tsav=(Tsin+Tsout)/2; 

108 %coste 

109 Ca=30000;Cb=750;c=0.81;Ce=2000;Cf=5;g=0.68;Cpow=0.00005;H=8000;Af=0.322;rend=0.7; 

110 %Rbsmin vtmin 

111 if punto==l; 

112 Rbs=Rbsmin; 

113 vt=vtmin; 

114 Ret=ROt*vt*Dti/MUt; 

115 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

116 Ds=ml+m3*Dt*(Ntt) A (1/n); 

117 Lts=0.1*Ds; 

118 if Lts<25 

119 Lts=25; 

120 end 

121 Dotl=Dt*(Ntt/Kl) A (1/n); 

122 Lbb=Ds-Dotl; 

123 Dctl=Dotl-Dt; 

124 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

125 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

126 if Ret<=2100 

127 ac=0.35; 

128 Kt=16; 

129 mt=-l; 

130 else if Ret>10 A 5 

131 ac=0.14; 

132 Kt=0.046; 

133 mt=-0.2; 

134 else 

135 ac=0.14; 

136 Kt=0.0791; 

137 mt=-0.25; 

138 end 

139 end 

14 0 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

141 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

142 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

143 Swt=Ntt*Ftw*pi/4*Dt A 2; 

144 Sw=Swg-Swt; 

145 Lbc=Rbs*Ds; 

146 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)) ; 

147 vs=Ms*10 A 6/(ROs*Sm); 
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148 Res=ROs*vs*De/MUs; %De en mm 

149 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

150 a=a3/(1+0.14*Res A (a4)); 

151 b=b3/(1 + 0.14*Res A (b 4) ); 

152 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2) ; 

153 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

154 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

155 Ntcw=0. 8 /Lpp*(Ds*(Bc/100)); 

156 Nb=5;Nb0=0; 

157 while abs((Nb-NbO)/Nb)>0.01 

158 Nb0=Nb; 

159 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

160 %Shell-side pressure drop, Calculo Rp y C3 

161 if Res>=2100 %turbulento 

162 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

163 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) 

/((MUs/MUsw) A — 0.14*Lpp) ; 

164 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

165 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

166 else%laminar 

167 Ntw=Ntt*Ftw; 

168 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2) ; 

169 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

170 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

171 k3=((Nb-1)*R1/(Nb+1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/ 1 / 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

172 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

173 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

174 end 

175 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt)^ 
/Ltpe)) A (2-Rp); 

176 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

177 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

178 syms Lta 

179 options=optimset( 'Display' , 'off' ); 

180 Lta=1000; 

181 if Ret<=2100 

182 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt* 10 A 3) ) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

_____ ___ ____ a 

ml) A (n/3)/C6+C7),Lta,options); 

184 else if Ret>10000 

185 Cl0=27 *kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8 * 1 / 
(m3*Dt) A (0. 8 *n)*Ntp A 0. 8 /(pi*Dti*MUt) A 0. 8 ; 

186 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0. 8 *n)/C10+C7)/(Ds-ml) A n; 

187 else 

188 C 8 = 0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3) ) A (1/3) ; 

189 C9=(4 * 10 A 6 *Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3) ; 

190 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C 8 *(l+n' 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

191 end 

192 end 
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193 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

194 if Ret<=2100 

195 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

196 else if Ret>10000 

197 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

198 else 

199 ht=ll6*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)* (MUt/MUtw) A (0.14); 

200 end 

201 end 

202 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

203 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, u/ 
Tsout,ROt,ROs); 

204 Prs=Cps*MUs/(10 A 3*ks); 

205 Prt=Cpt*MUt/(10 A 3*kt); 

206 Ltt=Lta+2*Lts; 

207 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

208 end 

209 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

210 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

211 A=pi*Dt*Lta*Ntt*Ns *10 A -6 ; 

212 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

213 %Para Rbs y Dsmax 

214 else if punto==2 

215 Rbs=Rbsmin; 

216 Ds=Dsmax; 

217 Lbc=Rbs*Ds; 

218 Ntt=((Ds-ml)/(m3*Dt)) A n; 

219 Dotl=Dt*(Ntt/Kl) A (1/n); 

220 Lbb=Ds-Dotl; 

221 Dctl=Dotl-Dt; 

222 anglectl=2*acos( (Ds/Dctl)* (l-2*Bc/100))*360/ (2*pi); 

223 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

224 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

225 Swt=Ntt*Ftw*pi/4*Dt A 2; 

226 Sw=Swg-Swt; 

227 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ; 

228 vs=Ms*10 A 6/(ROs*Sm); 

229 Res=ROs*vs*De/MUs ; 

230 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

232 b=b3/(1+0.14*Res A (b4)); 

233 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

234 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

235 Lts=0.1*Ds; 

236 if Lts<25 

237 Lts=25; 

238 end 

239 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

240 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

241 Ret=ROt*vt*Dti/MUt; 

242 if Ret<=2100 

243 ac=0.35; 
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244 Kt=l 6 ; 

245 mt=-l; 

246 else if Ret>10 A 5 

247 ac=0.14; 

248 Kt=0.046; 

249 mt=- 0 . 2 ; 

250 else 

251 ac=0.14; 

252 Kt=0.0791; 

253 mt=-0.25; 

254 end 

255 end 

25 6 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

257 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

258 Ntcw=0. 8 /Lpp*(Ds*(Bc/100)); 

259 Nb=5;Nb0=0; 

260 while abs((Nb-NbO)/Nb)>0.01 

261 Nb0=Nb; 

262 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

263 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

264 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

265 syms Lta 

266 options=optimset( 'Display' , 'off' ); 

267 Lta=1000; 

268 if Ret<=2100 

2 69 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

270 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7) ,Lta,options); 

271 else if Ret>10000 

272 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8 * 1 / 
(m3*Dt) A (0. 8 *n)*Ntp A 0. 8 /(pi*Dti*MUt) A 0. 8 ; 

273 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0. 8 *n)/C10+C7)/(Ds-ml) A n; 

274 else 

275 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

276 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

277 Lta=fsolve (@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4 + 1/(C 8 *(1 + *^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

278 end 

279 end 

280 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

281 if Ret<=2100 

282 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

283 else if Ret>10000 

284 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

285 else 

286 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

287 end 

288 end 

289 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

290 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
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Tsout,ROt,ROs); 

291 Prs=Cps*MUs/(10 A 3*ks); 

292 Prt=Cpt*MUt/(10 A 3*kt); 

293 Ltt=Lta+2*Lts; 

294 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

295 end 

296 %Shell-side pressure drop, Calculo Rp y C3 

297 if Res>=2100 %turbulento 

298 Ks1=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

299 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) 
/ ( (MUs/MUsw) A -0 . 14*Lpp) ; 

300 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

301 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

302 else%laminar 

303 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

304 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

305 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)// 

((MUs/MUsw) A - 0.14*Lpp); 

306 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

307 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

308 end 

30 9 C3=( (Nb + 1)/( (Nb-1) + (Li + Lo) ) )*(Ks3*4*Ns*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 

310 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

311 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

312 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

313 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

314 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* / 
(Ms*delPs/ROs+Mt*delPt/ROt); 

315 %vtmin vsmax 

316 else if punto==3 

317 vt=vtmin; 

318 vs=vsmax; 

319 Ret=ROt*vt*Dti/MUt; 

320 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

321 Ds=ml+m3*Dt*(Ntt) A (1/n); 

322 Lts=0.l*Ds; 

323 if Lts<25 

324 Lts=25; 

325 end 

327 Lbb=Ds-Dotl; 

328 Dctl=Dotl-Dt; 

329 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

330 Rbs=Lbc/Ds; 

331 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

332 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

333 if Ret<=2100 

334 ac=0.35; 

335 Kt=16; 

336 mt=-l; 

337 else if Ret>10 A 5 

338 ac=0.14; 
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339 

340 

341 

342 

343 

344 

345 


ac=0.14; 
Kt=0.0791; 
mt=-0. 25; 
end 


Kt=0.046; 
mt=-0.2; 
else 


346 end 

347 Ntcw=0. 8 /Lpp*(Ds*(Bc/100)); 

348 Ntcc=Ds/Lpp* (1-2*(Bc/100)); 

34 9 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

350 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

351 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

352 Swt=Ntt*Ftw*pi/4*Dt A 2; 

353 Sw=Swg-Swt; 

354 Res=ROs*vs*De/MUs ; 

355 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

356 a=a3/(1+0.14*Res A (a4)); 

357 b=b3/(1+0.14*Res A (b4)); 

358 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

359 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

360 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

361 Nb=5;Nb0=0; 

362 while abs((Nb-NbO)/Nb)>0.01 

363 Nb0=Nb; 

364 %CORRECTION FACTORS for heat transfer and pressure drop 

365 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

366 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

367 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

368 syms Ltaa; 

369 Lta=1000; 

37 0 options=optimset( 'Display' , 'off' ); 

371 if Ret<=2100 

372 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

373 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

374 else if Ret>10000 

375 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8 * 1 / 
(m3*Dt) A (0. 8 *n)*Ntp A 0. 8 /(pi*Dti*MUt) A 0. 8 ; 

376 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0. 8 *n)/C10+C7)/(Ds-ml) A n; 

377 else 

378 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

379 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

380 Lta=fsolve (@ (Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4 + 1/(C 8 * ( 1 +iS 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

381 end 

382 end 

383 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

384 if Ret<=2100 

385 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 
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386 else if Ret>10000 

387 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

388 else 

389 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14) ; 

390 end 

391 end 

392 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

393 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

394 Prs=Cps*MUs/(10 A 3*ks); 

395 Prt=Cpt*MUt/(10 A 3*kt); 

396 Ltt=Lta+2*Lts; 

397 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

398 end 

399 if Res>=2100 %turbulento 

400 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

401 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) 
/((MUs/MUsw) A —0.14*Lpp); 

402 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

403 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

404 else%laminar 

405 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

406 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

407 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

408 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

409 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

410 end 

411 C3=((Nb+1)/((Nb-1) + (Li+Lo)) )*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) 
/Ltpe)) A (2-Rp); 

412 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

413 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

414 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

415 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

416 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

417 %vsmax Dsmax 

418 else if punto==4 

419 vs=vsmax; 

420 Ds=Dsmax; 

421 Res=ROs*vs*De/MUs ; 

422 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

423 a=a3/(1+0.14*Res A (a4)); 

424 b=b3/(1+0.14*Res A (b4)); 

425 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

426 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

427 Ntt=((Ds-ml)/(m3*Dt)) A n; 

428 Dotl=Dt*(Ntt/Kl) A (1/n); 

429 Lbb=Ds-Dotl; 

430 Dctl=Dotl-Dt; 

431 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

432 Rbs=Lbc/Ds; 

433 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 
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434 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

435 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

436 Swt=Ntt*Ftw*pi/4*Dt A 2; 

437 Sw=Swg-Swt; 

438 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

439 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

440 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

441 Ret=ROt*vt*Dti/MUt; 

442 if Ret<=2100 

443 ac=0.35; 

444 Kt=l6; 

445 mt=-l; 

446 else if Ret>10 A 5 

447 ac=0. 14; 

448 Kt=0.046; 

449 mt=-0.2; 

450 else 

451 ac=0.14; 

452 Kt=0.0791; 

453 mt=-0.25; 

454 end 

455 end 

456 Cl= (2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

457 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

458 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

459 Nb=5;Nb0=0; 

460 while abs((Nb-NbO)/Nb)>0.01 

461 Nb0=Nb; 

462 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

463 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

464 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

465 syms Ltaa; 

466 Lta=1000; 

467 options=optimset( 'Display' , ' off' ); 

468 if Ret<=2100 

4 69 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

470 Lta=fsolve (@ (Ltaa) -Ltaa* (Ds-ml) A n+C5* (Ds A (l+a2) *Rbs A (l+a2) /C4+Ltaa A (1/3) * (Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

471 else if Ret>10000 

472 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

473 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

474 else 

475 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

476 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

477 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(l+i^ 
(Dti/Ltaa) A (2/3) )*(C9/(Ds-ml) A (2*n/3)-125)+C7) ),Lta,options); 

478 end 

479 end 

480 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 
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481 if Ret<=2100 

482 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14 ) ; 

483 else if Ret>10000 

484 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

485 else 

486 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

487 end 

488 end 

489 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

490 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

491 Prs=Cps*MUs/(10 A 3*ks); 

492 Prt=Cpt*MUt/(10 A 3*kt); 

493 Lts=0.l*Ds; 

494 if Lts<25 

495 Lts=25; 

496 end 

497 Ltt=Lta+2*Lts; 

498 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

499 end 

500 %Shell-side pressure drop, Calculo Rp y C3 

501 if Res>=2100 %turbulento 

502 Ks1=(Sm/Sw)*((1 + 0.3*Ntcw)*Rl*Nb*ROs)/( (Nb + 1)*Ds) ; 

503 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) 
/((MUs/MUsw) A — 0.14*Lpp) ; 

504 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

505 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

506 else%laminar 

507 Ntw=Ntt*Ftw; 

508 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2); 

509 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

510 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

511 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/ 

((MUs/MUsw) A -0.14*Lpp); 

512 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

513 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

514 end 

515 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt )^ 
/Ltpe)) A (2-Rp); 

516 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

518 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

519 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g) +Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

520 %Rbsmin vtmax 

521 else if punto==5; 

522 Rbs=Rbsmin; 

523 vt=vtmax; 

524 Ret=ROt*vt*Dti/MUt; %Dti en mm 

525 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

526 Ds=ml+m3*Dt*(Ntt) A (1/n); 

527 Lts=0.l*Ds; 

528 if Lts<25 
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529 


Lts=25; 


530 end 

531 Dotl=Dt*(Ntt/Kl) A (1/n); 

532 Lbb=Ds-Dotl; 

533 Dctl=Dotl-Dt; 

534 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

535 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

536 if Ret<=2100 

537 ac=0.35; 

538 Kt=16; 

539 mt=-l; 

540 else if Ret>10 A 5 

541 ac=0.14; 

542 Kt=0.046; 

543 mt=-0.2; 

544 else 

545 ac=0.14; 

546 Kt=0.0791; 

547 mt=-0.25; 

548 end 

549 end 

550 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

551 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

552 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

553 Swt=Ntt*Ftw*pi/4*Dt A 2 ; 

554 Sw=Swg-Swt; 

555 Lbc=Rbs*Ds; 

556 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ; 

557 vs=Ms*10 A 6/(ROs*Sm); 

558 Res=ROs*vs*De/MUs; %De en mm 

559 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

560 a=a3/(1+0.14*Res A (a4)); 

561 b=b3/(1+0.14*Res A (b4)); 

562 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

563 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

564 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

565 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

566 Nb=5; 

567 Nb0=0; 

568 while 

569 Nb0=Nb; 

570 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

571 %Shell-side pressure drop, Calculo Rp y C3 

572 if Res>=2100 %turbulento 

573 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

574 Ks2= ( (Nb-1) / (Nb+1) *R1+ ( (Ntcc+Ntcw) / (Ntcc* (Nb+1) ) *Rs) ) * (1-2* (Bc/100) ) * (2*Rb*ROs*cp) l F: 
/((MUs/MUsw) A — 0.14*Lpp) ; 

575 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

576 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

577 else%laminar 

578 Ntw=Ntt*Ftw; 
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579 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2); 

580 kl=(26*10 A 3*Nb*Rl*MUs)/( (Nb+1)*Ds * sqrt(Sw/Sm) )*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

581 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

582 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Be/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

583 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

584 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

585 end 

586 C3=( (Nb + 1)/( (Nb-1) + (Li + Lo) ) )*(Ks3*4*Ns*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

587 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

588 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

589 syms Lta 

590 options=optimset( 'Display' , 'off' ); 

591 Lta=1000; 

592 if Ret<=2100 

5 93 C6=18 60*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

5 94 Lta=fsolve (@ (Ltaa) -Ltaa* (Ds-ml) A n+C5* (Ds A (l+a2) *Rbs A (l+a2) /C4+Ltaa A (1/3) * (Ds- F - : “ 

ml) A (n/3)/C6+C7),Lta,options); 

595 else if Ret>10000 

596 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*i^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

597 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

598 else 

599 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

600 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

601 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(l+i^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

602 end 

603 end 

604 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

605 if Ret<=2100 

606 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

607 else if Ret>10000 

608 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

609 else 

610 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)* (MUt/MUtw) A (0.14); 

611 end 

612 end 

614 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

615 Prs=Cps*MUs/(10 A 3*ks); 

616 Prt=Cpt*MUt/(10 A 3*kt); 

617 Ltt=Lta+2*Lts; 

618 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

619 end 

620 %coste 

621 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

622 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

623 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

624 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
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(Ms *delPs/ROs+Mt*delPt/ROt); 

625 %vsmax vtmax 

626 else if punto==6 

627 vt=vtmax; 

628 vs=vsmax; 

629 Ret=ROt*vt*Dti/MUt; 

630 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

631 Ds=ml+m3*Dt*(Ntt) A (1/n); 

632 Lts=0.l*Ds; 

633 if Lts<25 

634 Lts=25; 

635 end 

636 Dotl=Dt*(Ntt/Kl) A (1/n); 

637 Lbb=Ds-Dotl; 

638 Dctl=Dotl-Dt; 

639 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

640 Rbs=Lbc/Ds; 

641 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

642 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

643 if Ret<=2100 

644 ac=0.35; 

645 Kt=l6; 

646 mt=-l; 

647 else if Ret>10 A 5 

648 ac=0.14; 

649 Kt=0.046; 

650 mt=-0.2; 

651 else 

652 ac=0.14; 

653 Kt=0.0791; 

654 mt=-0.25; 

655 end 

656 end 

657 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

658 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

65 9 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 

(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

660 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

661 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

662 Swt=Ntt*Ftw*pi/4*Dt A 2; 

663 Sw=Swg-Swt; 

664 Res=ROs*vs*De/MUs ; 

665 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

666 a=a3/(1+0.14*Res A (a4)); 

667 b=b3/(1+0.14*Res A (b4)); 

668 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

669 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

670 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

671 Nb=5;Nb0=0; 

672 while abs((Nb-NbO)/Nb)>0.01 

673 Nb0=Nb; 

674 %CORRECTION FACTORS for heat transfer and pressure drop 

675 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
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Lpp,Lbc,Res,Nb,Sm); 

67 6 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

677 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

678 syms Ltaa; 

679 Lta=1000; 

680 options=optimset (' Displayoff ') ; 

681 if Ret<=2100 

682 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

683 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

684 else if Ret>10000 

685 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

686 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

687 else 

688 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3) ) A (1/3); 

689 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

690 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(1+^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

691 end 

692 end 

693 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

694 if Ret<=2100 

695 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

696 else if Ret>10000 

697 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

698 else 

699 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

700 end 

701 end 

702 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

703 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout , MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

704 Prs=Cps*MUs/(10 A 3*ks); 

705 Prt=Cpt*MUt/(10 A 3*kt); 

706 Ltt=Lta+2*Lts; 

707 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1 ; 

708 end 

709 if Res>=2100 %turbulento 

711 Ks2=((Nb-1)/(Nb + 1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1) )*Rs) )* (1-2* (Bc/100) )*(2*Rb*ROs*cp) 
/((MUs/MUsw) A — 0.14*Lpp) ; 

712 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

713 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

714 else%laminar 

715 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

716 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

717 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

718 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

719 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

720 end 
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721 C3 =( (Nb + 1)/( (Nb-1) + (Li + Lo) ))*(Ks3*4*Ns*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt )^ 
/Ltpe)) A (2-Rp); 

722 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

723 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

724 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

725 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

726 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* i/ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

727 %vtmin vsmin 

728 else if punto==7 

729 vt=vtmin; 

730 vs=vsmin; 

731 Ret=ROt*vt*Dti/MUt; 

732 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

733 Ds=ml+m3*Dt*(Ntt) A (1/n); 

734 Lts=0.l*Ds; 

735 if Lts<25 

736 Lts=25; 

737 end 

738 Dotl=Dt*(Ntt/Kl) A (1/n); 

739 Lbb=Ds-Dotl; 

740 Dctl=Dotl-Dt; 

741 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

742 Rbs=Lbc/Ds; 

743 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/ (2*pi); 

744 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

745 if Ret<=2100 

746 ac=0.35; 

747 Kt=16; 

748 mt=-l; 

749 else if Ret>10 A 5 

750 ac=0.14; 

751 Kt=0.046; 

752 mt=-0.2; 

753 else 

754 ac=0.14; 

755 Kt=0.0791; 

756 mt=-0.25; 

757 end 

758 end 

759 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

760 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

7 61 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

762 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

763 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

764 Swt=Ntt*Ftw*pi/4*Dt A 2; 

765 Sw=Swg-Swt; 

766 Res=ROs*vs*De/MUs; 

767 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

768 a=a3/(1+0.14*Res A (a4)); 

769 b=b3/(1 + 0.14*Res A (b4) ); 

770 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 
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771 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

772 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

773 Nb=5; 

774 Nb0=0; 

775 while abs((Nb-NbO)/Nb)>0.01 

776 NbO=Nb; 

777 %CORRECTION FACTORS for heat transfer and pressure drop 

778 [ Jtot, Rb, Rs , R1 ] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

779 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

780 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

781 syms Ltaa; 

782 Lta=1000; 

783 options=optimset( 'Display' , 'off' ); 

784 if Ret<=2100 

7 85 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt* 10 A 3) ) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

786 Lta=fsolve (@ (Ltaa) -Ltaa* (Ds-ml) A n+C5* (Ds A (l+a2) *Rbs A (l+a2) /C4+Ltaa A (1/3) * (Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

787 else if Ret>10000 

788 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (1/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*i^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

789 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

790 else 

791 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

792 C9=(4 * 10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3) ; 

793 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(1+^ 
(Dti/Ltaa) A (2/3))*(C 9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

794 end 

795 end 

796 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

797 if Ret<=2100 

798 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

799 else if Ret>10000 

800 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

801 else 

802 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

803 end 

804 end 

805 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

806 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, i/ 
Tsout,ROt,ROs); 

807 Prs=Cps*MUs/(10 A 3*ks); 

808 Prt=Cpt*MUt/(10 A 3*kt); 

809 Ltt=Lta+2*Lts; 

810 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1 ; 

811 end 

812 if Res>=2100 %turbulento 

813 Ksl=(Sm/Sw)*((l+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

814 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) 
/((MUs/MUsw) A — 0.14 *Lpp) ; 

815 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

816 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 
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817 else%laminar 

818 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

819 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

820 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Be/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

821 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

822 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

823 end 

824 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt )^ 
/Ltpe)) A (2-Rp); 

825 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

826 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

827 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

828 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

829 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* i/ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

830 %vsminDsmax 

831 else if punto==8 

832 vs=vsmin; 

833 Ds=Dsmax; 

834 Res=ROs*vs*De/MUs; 

835 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

836 a=a3/(1+0.14*Res A (a4)); 

837 b=b3/(1+0.14*Res A (b4)); 

838 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

839 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

840 Ntt=((Ds-ml)/(m3*Dt)) A n; 

841 Dotl=Dt*(Ntt/Kl) A (1/n); 

842 Lbb=Ds-Dotl; 

843 Dctl=Dotl-Dt; 

844 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

845 Rbs=Lbc/Ds; 

846 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

847 Ftw= anglectl/360-sin (anglectl*2*pi/360)/(2*pi); 

848 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

849 Swt=Ntt*Ftw*pi/4*Dt A 2; 

850 Sw=Swg-Swt; 

851 Ntcc=Ds/Lpp*(1-2* (Bc/100)); 

852 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

853 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

854 Ret=ROt*vt*Dti/MUt; 

855 if Ret<=2100 

856 ac=0.35; 

857 Kt=l6; 

858 mt=-l; 

859 else if Ret>10 A 5 

860 ac=0.14; 

861 Kt=0.046; 

862 mt=-0.2; 

863 else 

864 ac=0.14; 

865 Kt=0.0791; 

866 mt=-0.25; 
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867 end 

868 end 

8 69 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

870 C2=1.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

871 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

872 Nb=5; 

873 Nb0=0; 

874 while abs((Nb-NbO)/Nb)>0.01 

875 NbO=Nb; 

876 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

877 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

878 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l + a2); 

879 

880 syms Ltaa; 

881 Lta=1000; 

882 options=optimset( 'Display' , 'off' ); 

883 if Ret<=2100 

884 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

885 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

886 else if Ret>10000 

887 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8*S 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

888 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

889 else 

8 90 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt *10 A 3)) A (1/3); 

891 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

892 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* (1+^ 
(Dti/Ltaa) A (2/3))*(C 9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

893 end 

894 end 

895 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

896 if Ret<=2100 

897 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

898 else if Ret>10000 

899 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

900 else 

902 end 

903 end 

904 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

905 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

906 Prs=Cps*MUs/(10 A 3*ks); 

907 Prt=Cpt*MUt/(10 A 3*kt); 

908 Lts=0.l*Ds; 

909 if Lts<25 

910 Lts=25; 

911 end 

912 Ltt=Lta+2*Lts ; 
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913 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

914 end 

915 %Shell-side pressure drop, Calculo Rp y C3 

916 if Res>=2100 %turbulento 

917 Ks1=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

918 Ks2= ( (Nb-1) / (Nb+1) *R1+ ( (Ntcc+Ntcw) / (Ntcc* (Nb+1) ) *Rs) ) * (1-2* (Bc/100) ) * (2*Rb*ROs*cp) ® 
/((MUs/MUsw) A -0.14*Lpp); 

919 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

920 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

921 else%laminar 

922 Ntw=Ntt*Ftw; 

923 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2) ; 

924 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

925 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

926 k3=((Nb-1)*R1/(Nb+1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/ 1 / 

((MUs/MUsw) A -0.14 *Lpp); 

927 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

928 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

929 end 

930 C3=( (Nb + 1)/( (Nb-1) + (Li + Lo) ) )*(Ks3*4*Ns*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

931 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

932 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

933 A=pi*Dt*Lta*Ntt*Ns* 10 A -6; 

934 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 

(Ms *delPs/ROs+Mt*delPt/ROt); 

935 %VtmindelPsmax 

936 else 

937 vt=vtmin; 

938 vs=vsmax; 

939 Ret=ROt*vt*Dti/MUt; 

940 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

941 Ds=ml+m3*Dt*(Ntt) A (1/n); 

942 Lts=0.l*Ds; 

943 if Lts<25 

944 Lts=25; 

945 end 

946 Dotl=Dt*(Ntt/Kl) A (1/n); 

947 Lbb=Ds-Dotl; 

948 Dctl=Dotl-Dt; 

949 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

950 Rbs=Lbc/Ds; 

951 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/ (2*pi); 

952 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

953 if Ret<=2100 

954 ac=0.35; 

955 Kt=l6; 

956 mt=-l; 

957 else if Ret>10 A 5 

958 ac=0.14; 

959 Kt=0.046; 

960 mt=-0.2; 

961 else 
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962 

963 

964 

965 


ac=0. 14; 
Kt=0.0791; 
mt=-0. 25; 
end 


966 end 

967 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

968 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

9 69 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

970 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

971 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

972 Swt=Ntt*Ftw*pi/4*Dt A 2; 

973 Sw=Swg-Swt; 

974 Res=ROs*vs*De/MUs; 

975 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

976 a=a3/(1+0.14*Res A (a4)); 

977 b=b3/(1+0.14*Res A (b4)); 

978 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

979 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

980 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

981 Nb=5; 

982 Nb0=0; 

983 while abs((Nb-NbO)/Nb)>0.01 

984 Nb0=Nb; 

985 %CORRECTION FACTORS for heat transfer and pressure drop 

986 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc, 
Lpp,Lbc,Res,Nb,Sm); 

987 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

988 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

989 syms Ltaa; 

990 Lta=1000; 

991 options=optimset( 'Display' , 'off' ); 

992 if Ret<=2100 

9 93 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

994 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)* (Ds- 
ml) A (n/3)/C6+C7) ,Lta,options); 

995 else if Ret>10000 

996 C10=27*kt/Dt*(Cpt*MUt/(10 A 3* kt)) A (1/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

998 else 

999 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt *10 A 3)) A (1/3); 

1000 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

1001 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* [l+'S 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

1002 end 

1003 end 

1004 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

1005 if Ret<=2100 

1006 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

1007 else if Ret>10000 

1008 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 
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1009 else 

1010 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14) ; 

1011 end 

1012 end 

1013 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

1014 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

1015 Prs=Cps*MUs/(10 A 3*ks); 

1016 Prt=Cpt*MUt/(10 A 3*kt); 

1017 Ltt=Lta+2*Lts; 

1018 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

1019 end 

1020 if Res>=2100 %turbulento 

1021 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

1022 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp)b 
/((MUs/MUsw) A -0.14 *Lpp); 

1023 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

1024 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

1025 else%laminar 

1026 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

1027 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

1028 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)// 

( (MUs/MUsw) A — 0.14*Lpp) ; 

1029 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

1030 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

1031 end 

1032 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt )^ 
/Ltpe)) A (2-Rp); 

1033 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1034 if delPs>delPsmax 

1035 while delPs>delPsmax 

1036 vs=vs-0.003; 

1037 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt)) ) ; 

1038 Rbs=Lbc/Ds; 

1039 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

1040 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

1041 if Ret<=2100 

1042 ac=0.35; 

1043 Kt=l6; 

1044 mt=-l; 

1045 else if Ret>10 A 5 

1046 ac=0.14; 

1047 Kt=0.046; 

1048 mt=-0.2; 

1049 else 

1050 ac=0.14; 

1051 Kt=0.0791; 

1052 mt=-0.25; 

1053 end 

1054 end 

1055 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

1056 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

1057 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
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(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

1058 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

1059 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

1060 Swt=Ntt*Ftw*pi/4*Dt A 2; 

1061 Sw=Swg-Swt; 

1062 Res=ROs*vs*De/MUs ; 

1063 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

1064 a=a3/(l+0.14*Res A (a4)); 

1065 b=b3/(l + 0.14*Res A (b4) ); 

1066 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

1067 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

1068 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

1069 Nb=5;Nb0=0; 

1070 while abs((Nb-NbO)/Nb)>0.01 

1071 Nb0=Nb; 

1072 %CORRECTION FACTORS for heat transfer and pressure drop 

1073 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

1074 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

1075 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

1076 syms Ltaa; 

1077 Lta=1000; 

1078 options=optimset( 'Display' , 'off' ); 

1079 if Ret<=2100 

10 80 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

1081 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

1082 else if Ret>10000 

1083 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

1084 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

1085 else 

1086 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

1087 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

1088 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(l+i^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

1089 end 

1090 end 

1091 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

1092 if Ret<=2100 

1093 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

1094 else if Ret>10000 

1095 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

1096 else 

1097 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

1098 end 

1099 end 

1100 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

1101 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

1102 Prs=Cps*MUs/(10 A 3*ks); 

1103 Prt=Cpt*MUt/(10 A 3*kt); 
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1104 Ltt=Lta+2*Lts; 

1105 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

1106 end 

1107 if Res>=2100 %turbulento 

1108 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

1109 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) " 
/((MUs/MUsw) A -0.14*Lpp); 

1110 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

1111 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

1112 else%laminar 

1113 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

1114 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

1115 k3=((Nb-1)*R1/(Nb+1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp) /^ 

((MUs/MUsw) A -0.14 *Lpp); 

1116 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

1117 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

1118 end 

1119 C3=( (Nb + 1)/( (Nb-1) + (Li + Lo) ) )*(Ks3*4*Ns*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

1120 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1121 end 

1122 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

1123 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

1124 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

1125 else 

1126 while delPskdelPsmax 

1127 vs=vs+0.003; 

1128 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

1129 Rbs=Lbc/Ds; 

1130 anglect1=2*acos((Ds/Dctl)* (l-2*Bc/100))*360/ (2*pi); 

1131 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

1132 if Ret<=2100 

1133 ac=0.35; 

1134 Kt=l6; 

1135 mt=-l; 

1136 else if Ret>10 A 5 

1137 ac=0.14; 

1138 Kt=0.046; 

1139 mt=-0.2; 

1140 else 

1141 ac=0.14; 

1142 Kt=0.0791; 

1143 mt=-0.25 ; 

1144 end 

1145 end 

1146 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

1147 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

114 8 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

1149 C2=1.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

1150 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

1151 Swt=Ntt*Ftw*pi/4*Dt A 2; 
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1152 Sw=Swg-Swt; 

1153 Res=ROs*vs*De/MUs; 

1154 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

1155 a=a3/(1+0.14*Res A (a4)); 

1156 b=b3/(1+0.14*Res A (b4)); 

1157 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

1158 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

1159 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

1160 Nb=5;Nb0=0; 

1161 while abs((Nb-NbO)/Nb)>0.01 

1162 Nb0=Nb; 

1163 %CORRECTION FACTORS for heat transfer and pressure drop 

1164 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

1165 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

1166 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

1167 syms Ltaa; 

1168 Lta=1000; 

1169 options=optimset (' Display' , 'off' ); 

1170 if Ret<=2100 

1171 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3) * i/ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

1172 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3) *(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

1173 else if Ret>10000 

1174 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (1/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) a 0.8*k/ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

1175 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

1176 else 

1177 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

1178 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

1179 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(l+i/ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

1180 end 

1181 end 

1182 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

1183 if Ret<=2100 

1184 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

1185 else if Ret>10000 

1186 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

1187 else 

1188 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

1189 end 

1190 end 

1191 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

1192 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

1193 Prs=Cps*MUs/(10 A 3*ks); 

1194 Prt=Cpt*MUt/(10 A 3*kt); 

1195 Ltt=Lta+2*Lts; 

1196 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

1197 end 

1198 if Res>=2100 %turbulento 
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1199 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

1200 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1) )*Rs) )* (1-2* (Bc/100) )*(2*Rb*ROs*cp) 
/((MUs/MUsw) A — 0.14 *Lpp); 

1201 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

1202 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

1203 else%laminar 

1204 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

1205 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

1206 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )[ 

((MUs/MUsw) A -0.14*Lpp); 

1207 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

1208 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

1209 end 

1210 C3=((Nb+1)/((Nb-1) + (Li+Lo)))*(Ks3*4*Ns*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 

1211 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1212 end 

1213 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

1214 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

1215 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

1216 end 

1217 

1218 end 

1219 end 

1220 end 

1221 end 

1222 end 

1223 end 

1224 end 

1225 end 

1226 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 
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1 %TACminimo 

2 %Una vez obtenidas las curvas que permiten representar el area factible, se 

3 %puede calcular el intercambiador de minimo coste que se encuentra en el 

4 %interior de ese area y por tanto, cumple todas las restricciones. 

5 %VARIABLES DE ENTRADA 

6 %Bc es el corte del deflector 

7 %Cps y Cpt son los calores especificos de ambos fluidos 

8 %Dsmax es el diametro maximo de la carcasa 

9 %Lmax es la longitud maxima de los tubos 

10 %Li y Lo son las separaciones de los deflectores a la entrada y a la salida 

11 %MUsin, MUsout, MUtin y MUtout son las viscosidades de los fluidos a la 

12 %temperatura de entrada y de salida 

13 %Ms y Mt son los caudales masicos para ambos fluidos 

14 %ROs y ROt son las densidades de ambos fluidos 

15 %Ntp son el numero de pasos por los tubos 

16 %Rfs y Rft son las resistencias de ensuciamiento para ambos fluidos 

17 %Tsin, Tsout, Ttin y Ttout son las temperaturas de entrada y salida de los 

18 %fluidos 

19 %angle y forma determinan el layout de los tubos 

20 %bundletype es el tipo de cabezal 

21 %delPsmax y delPtmax son las perdidas de carga maximas admisibles en 

22 %carcasa y tubos respectivamente 

23 %ks y kt son las conductividades termicas de los fluidos 

24 %kw es la conductividad termica del material de los tubos 

25 %vsmax, vsmin, vtmax y vtmin son las velocidades limites para ambos fluidos 

26 %VARIABLES INTERNAS DEL PROGRAMA 

27 %Rbsmax y Rbsmin son la relacion entre la separacion de los deflectores y 

28 %el diametro de la carcasa maxima y minima 

29 %Dt y Dti son el diametro externo e interno de los tubos, respectivamente 

30 %Ltp es la separacion entre los tubos (tube pitch) 

31 %Ns es el numero de pasos por la carcasa 

32 %SALIDA 

33 %Se obtienen las caracteristicas del intercambiador de minimo coste que 

34 %cumple con las restricciones 

35 %delPt y delPs son la perdida de carga en los tubos y en la carcasa, 

36 %respectivamente 

37 %A es el area en la que se produce intercambio de calor 

38 %TAC es el coste total anualizado del intercambiador 

39 %Ltt es la longitud de los tubos 

40 %Ds es el diametro de la carcasa 

41 %Rbs es la relacion entre la separacion de los deflectores y el diametro de 

42 %la carcasa 

43 %vs y vt son las velocidades de los fluidos en la carcasa y en los tubos, 

44 %respectivamente 

45 %punto identifica la interseccion de curvas en la que se obtiene el minimo 

46 load variables 

47 if Ttin>Tsin 

48 Thi=Ttin; 

49 Tho=Tto; 

50 Tci=Tsin; 

51 Tco=Tsout; 

52 else 

53 Thi=Tsin; 
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54 Tho=Tsout; 

55 Tci=Ttin; 

56 Tco=Ttout; 

57 end 

58 Ttav=(Ttin+Ttout)/2;Tsav=(Tsin+Tsout)/2; 

59 Rbsmax=l; 

60 Rbsmin=0.2; 

61 Dt=19.1; %mm 

62 Dti=15.4; 

63 Ltp=1.25*Dt; 

64 layout=[forma angle];% 

65 MUt=MUtin; %para empezar iteraclones 

66 MUs=MUsin; 

67 MUtw=MUtin; 

68 MUsw=MUsin; 

69 

70 Prt=Cpt*MUt/ (10 A 3*ks) ; 

71 Prs=Cps*MUs/(10 A 3*ks); 

72 Ns=l; 

73 S=(Tco-Tci)/ (Thi-Tci) ; 

74 R=(Thi-Tho)/(Tco-Tci); 

75 P=(l-((R*S-1)/(S-l)) A (1/Ntp))/(R-((R*S-1)/(S-l)) A (1/Ntp)); 

76 F=(sqrt(R A 2+1)*log((1-P)/(1-R*P)))/((R-l)*log((2/P-l-R+sqrt(R A 2+1))/(2/P-R-l-sqrt® 
(R A 2+1)))); 

77 while F<0.8 

78 Ntp=Ntp+l; 

79 P=(l- ( (R*S-1)/(S-l) ) A (1/Ntp) )/(R-( (R*S-1)/(S-l)) A (1/Ntp) ) ; 

80 F=(sqrt(R A 2+1)*log((1-P)/(1-R*P)))/((R-l)*log((2/P-l-R+sqrt(R A 2+1))/(2/P-R-l-sqrtL 
(R A 2+1)))); 

81 end 

82 LMTD=((Thi-Tco)-(Tho-Tci))/log((Thi-Tco)/(Tho-Tci)); 

83 Q=Mt*abs(Ttin-Ttout)*Cpt; 

84 if layout(1)==2 %diametro hidraulico equivalente shell-side 

85 De=4*(Ltp A 2-pi*Dt A 2/4)/(pi*Dt); 

86 else 

87 De=4*(sqrt(3)*Ltp A 2/4-pi*Dt A 2/8)/(pi*Dt/2); 

88 end 

89 %TABLA A1 columnas (al a2 a3 a4 bl b2 b3 b4) filas 30° Reynodls(10 A 5-10 A 4,10 A 4 - ^ 
10 A 3,10 A 3-10 A 2, 

90 %10 A 2-10,<10) 45° (10 A 5 . . . ) 90°(10 A 5...) 

EF 

0.9 0.97;-0.388 -0.388 -0.477 -0.657 -0.667 -0.396 -0.396 -0.5 -0.656 -0.667 -0.395^ 
-0.266 -0.46 -0.631 -0.667,-1.45 1.45 1.45 1.45 1.45 1.93 1.93 1.93 1.93 1.93 1.187 / 

1.187 1.187 1.187 1.187;0.519 0.519 0.519 0.519 0.519 0.5 0.5 0.5 0.5 0.5 0.37 0.37/ 

0.37 0.37 0.37; 0.372 0.486 4.57 45.1 48 0.303 0.333 3.5 26.2 32 0.391 0.0815 6.09 32.1f ; 
35; -0.123 -0.152 -0.476 -0.973 -1 -0.126 -0.136 -0.476 -0.913 -1 -0.148 0.022 -0.602/ 
-0.963 -1;7 7777 6.59 6.59 6.59 6.59 6.59 6.3 6.3 6.3 6.3 6.3; 0.5 0.5 0.5 0.5 0.5/ 
0.52 0.52 0.52 0.52 0.52 0.378 0.378 0.378 0.378 0.378]'; 

92 %TABLA 1 

93 tablacoefm=[8 39 44 87;0.01 0 0.025 0.007]'; 

94 % TABLA 2 

95 tablacoef2=[0.319 0.249 0.175 0.0743 0.0365; 0.215 0.156 0.158 0.0402 0.0331;2.142E 
2.207 2.285 2.499 2.675;2.207 2.291 2.263 2.617 2.643]'; 
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96 % 

97 [ml,m2]=parametrosm(tablacoefm,bundletype); 

98 [K1,n]=parametrostabla2(layout,tablacoef2,Ntp); 

99 %Calculos geometria 

100 if layout(2)==2 

101 Ltpe=0.707*Ltp; 

102 Lpp=0.707*Ltp; 

103 else if layout(2)==1 

104 Ltpe=Ltp; 

105 Lpp=0.866*Ltp; 

106 else 

107 Lpp=Ltp; 

108 Ltpe=Ltp; 

109 end 

110 end 

111 angleds=2*acos(1-2*(Bc/100))*360/(2*pi); 

112 m3=(m2+l)/K1 A (1/n); 

113 C5=Q*10 A 6*(m3*Dt) A n/(pi*Dt*Ns*F*LMTD); 

114 C7=Dt*Rft/Dti+Dt*log(Dt/Dti)/(2*10 A 3*kw)+Rfs; 

115 %coste 

116 Ca=30000; 

117 Cb=750; 

118 c=0.81; 

119 Ce=2000; 

120 Cf=5; 

121 g=0.68; 

122 Cpow=0.00005; 

123 H=8000; 

124 Af=0.322 ; 

125 rend=0.7; 

126 puntomin=0; 

127 TACmin=100000; 

128 

129 %Rbsmin vtmin 

130 Rbs=Rbsmin; 

131 vt=vtmin; 

132 Ret=ROt*vt*Dti/MUt; 

133 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

134 Ds=ml+m3*Dt*(Ntt) A (1/n); 

135 Lts=0.l*Ds; 

136 if Lts<25 

137 Lts=25; 

138 end 

139 Dotl=Dt*(Ntt/Kl) A (1/n); 

140 Lbb=Ds-Dotl; 

141 Dctl=Dotl-Dt; 

142 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

143 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

144 if Ret<=2100 

145 ac=0.35; 

146 Kt=l6; 

147 mt=-l; 

148 else if Ret>10 A 5 
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149 

150 

151 

152 

153 

154 

155 

156 


mt=-0.25; 
end 


ac=0. 14; 
Kt=0.04 6; 
mt=-0.2; 
else 


ac=0.14; 
Kt=0.0791; 


157 end 

158 % 

159 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

160 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

161 Swg=pi/4 *Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

162 Swt=Ntt*Ftw*pi/4*Dt A 2; 

163 Sw=Swg-Swt; 

164 Lbc=Rbs*Ds; 

165 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ; 

166 vs=Ms*10 A 6/(ROs*Sm); 

167 Res=ROs*vs*De/MUs; 

168 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

169 a=a3/(1+0.14*Res A (a4)); 

170 b=b3/(1+0.14*Res A (b4)); 

171 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

172 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

173 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

174 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

175 Nb=5; 

176 Nb0=0; 

177 while abs((Nb-NbO)/Nb)>0.01 

178 Nb0=Nb; 

179 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

180 %Shell-side pressure drop, Calculo Rp y C3 

181 if Res>=2100 %turbulento 

182 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

183 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp )V 
/((MUs/MUsw) A -0.14 *Lpp); 

184 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

185 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

186 else%laminar 

187 Ntw=Ntt*Ftw; 

188 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2) ; 

189 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

190 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

191 k3=((Nb-1)*R1/(Nb+1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/ 

( (MUs/MUsw) A — 0.14*Lpp) ; 

192 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

193 Ks3=(kl*vs A -l + k2+k3*vs A b2)*vs A Rp; 

194 end 

195 

196 C3=((Nb+1)/((Nb-1) + (Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) i2 
/Ltpe)) A (2-Rp); 
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197 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

198 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

199 syms Lta 

200 options=optimset ('Display','off'); 

201 Lta=1000; 

202 

203 if Ret<=2100 

2 04 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3) * ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

205 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds-" : 
ml) A (n/3)/C6+C7) ,Lta,options); 

206 else if Ret>10000 

207 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

208 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

209 else 

210 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3) ) A (1/3); 

211 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

212 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(1+^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

213 end 

214 end 

215 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

216 Prs=Cps*MUs/(10 A 3*ks); 

217 Prt=Cpt*MUt/(10 A 3*kt); 

218 if Ret<=2100 

219 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

220 else if Ret>10000 

221 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

222 else 

22 3 ht=ll6*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)* (MUt/MUtw) A (0.14) ; 

224 end 

225 end 

226 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

227 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

228 Ltt=Lta+2*Lts; 

229 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1 ; 

230 end 

231 

232 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

233 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

234 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&L- 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

235 A=pi*Dt*Lta*Ntt*Ns*10 A -6 ; 

236 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend *l 
(M s*delPs/ROs+Mt*delPt/ROt); 

237 TACmin=TAC; 

238 puntomin=l; 

239 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

240 end 

241 %Para Rbsmin y Dsmax 

242 Rbs=Rbsmin; 
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243 Ds=Dsmax; 

244 Lbc=Rbs*Ds; 

245 Ntt=((Ds-ml)/(m3*Dt)) A n; 

246 Dotl=Dt*(Ntt/Kl) A (1/n); 

247 Lbb=Ds-Dotl; 

248 Dctl=Dotl-Dt; 

249 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

250 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

251 Swg=pi/4 *Ds A 2*(angleds/3 60-sin(angleds *2 *pi/360)/(2*pi)); 

252 Swt=Ntt*Ftw*pi/4*Dt A 2; 

253 Sw=Swg-Swt; 

254 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)) ; 

255 vs=Ms*10 A 6/(ROs*Sm); 

256 Res=ROs*vs*De/MUs; %De en mm 

257 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

258 a=a3/(1+0.14*Res A (a4)); 

259 b=b3/(1+0.14*Res A (b4)); 

260 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

261 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

262 Lts=0.1 *Ds; 

263 if Lts<25 

264 Lts=25; 

265 end 

266 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

267 vt=4* 10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt) ; 

268 Ret=ROt*vt*Dti/MUt; 

269 if Ret<=2100 

270 ac=0.35; 

271 Kt=16; 

272 mt=-l; 

273 else if Ret>10 A 5 

274 ac=0.14; 

275 Kt=0.046; 

276 mt=-0.2; 

277 else 

278 ac=0.14; 

279 Kt=0.0791; 

280 mt=-0.25; 

281 end 

282 end 

2 83 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

284 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

285 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

286 

287 Nb=5; 

288 Nb0=0; 

289 while abs((Nb-NbO)/Nb)>0.01 

290 Nb0=Nb; 

291 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

292 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

293 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 
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294 syms Lta 

2 95 options=optimset( 'Display ' , 'off' ); 

296 Lta=1000; 

297 if Ret<=2100 

298 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* * 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

299 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

300 else if Ret>10000 


(m3*Dt) 


301 


C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8*<S 
(0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 


302 

303 

304 

305 

306 


Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

else 


C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3) ) A (1/3); 

C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(1 + *^ 


(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 


307 


end 


308 end 

309 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

310 Prs=Cps*MUs/(10 A 3*ks); 

311 Prt=Cpt*MUt/(10 A 3*kt); 

312 if Ret<=2100 

313 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

314 else if Ret>10000 

315 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

316 else 

317 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

318 end 

319 end 

320 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

321 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

322 Ltt=Lta+2*Lts; 

323 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

324 end 

325 if Res>=2100 %turbulento 

326 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

327 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) 
/((MUs/MUsw) A -0.14 *Lpp); 

328 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

329 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

330 else%laminar 

331 kl= (26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

332 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

333 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14*Lpp) ; 

334 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

335 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

336 end 

337 C3=((Nb+1)/((Nb-1) + (Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 

338 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 
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339 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

340 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&U 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

341 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

342 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

343 if TACCTACmin 

344 TACmin=TAC; 

345 puntomin=2; 

346 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

347 end 

348 end 

349 %vtmin vsmax 

350 vt=vtmin; 

351 vs=vsmax; 

352 Ret=ROt*vt*Dti/MUt; 

353 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

354 Ds=ml+m3*Dt*(Ntt) A (1/n); 

355 Lts=0.l*Ds; 

356 if Lts<25 

357 Lts=25; 

358 end 

359 Dotl=Dt*(Ntt/Kl) A (1/n); 

360 Lbb=Ds-Dotl; 

3 61 Dctl = Dotl-Dt ; 

362 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

363 Rbs=Lbc/Ds; 

364 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

365 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

366 if Ret<=2100 

367 ac=0.35; 

368 Kt=16; 

369 mt=-l; 

370 else if Ret>10 A 5 

371 ac=0.14; 

372 Kt=0.046; 

373 mt=-0.2; 

374 else 

375 ac=0.14; 

376 Kt=0.0791; 

377 mt=-0.25 ; 

378 end 

379 end 

380 % 

381 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

382 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

383 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

384 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

385 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

386 Swt=Ntt*Ftw*pi/4*Dt A 2; 

387 Sw=Swg-Swt; 

388 Res=ROs*vs*De/MUs ; 
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389 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

390 a=a3/(1+0.14*Res A (a4)); 

391 b=b3/(1+0.14*Res A (b4)); 

392 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

393 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

394 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

395 Nb=5; 

396 Nb0=0; 

397 while abs((Nb-NbO)/Nb)>0.01 

398 Nb0=Nb; 

399 %CORRECTION FACTORS for heat transfer and pressure drop 

400 [ Jtot, Rb, Rs , R1 ] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

401 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

402 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

403 syms Ltaa; 

404 Lta=1000; 

405 options=optimset(' Display' , ' off' ); 

406 if Ret<=2100 

4 07 C6=18 60*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

408 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds-7 
ml) A (n/3)/C6+C7),Lta,options); 

409 else if Ret>10000 

410 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8*S 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

411 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

412 else 

413 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

414 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

415 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* (1+^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

416 end 

417 end 

418 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

419 Prs=Cps*MUs/(10 A 3*ks); 

420 Prt=Cpt*MUt/(10 A 3*kt); 

421 if Ret<=2100 

422 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

423 else if Ret>10000 

425 else 

426 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

427 end 

428 end 

429 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

430 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

431 Ltt=Lta+2*Lts; 

432 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

433 end 

434 if Res>=2100 %turbulento 

435 Ks1=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 
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436 Ks2=((Nb-1)/(Nb + 1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1) )*Rs) )* (1-2* (Bc/100) )*(2*Rb*ROs*cp) ' : 
/((MUs/MUsw) A — 0.14*Lpp) ; 

437 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

438 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

439 else%laminar 

440 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

441 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

442 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A -0.14 *Lpp); 

443 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

444 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

445 end 

446 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt )^ 
/Ltpe)) A (2-Rp); 

447 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

448 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

449 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&C" 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

450 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

451 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

452 if TACCTACmin 

453 TACmin=TAC; 

454 puntomin=3; 

455 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

456 end 

457 end 

458 %vsmax Dsmax 

459 vs=vsmax; 

460 Ds=Dsmax; 

461 Res=ROs*vs*De/MUs ; 

462 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1) ; 

463 a=a3/(l+0.14*Res A (a4)); 

464 b=b3/(1+0.14*Res A (b4)); 

465 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

466 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

467 Ntt=((Ds-ml)/(m3*Dt)) A n; 

468 Dotl=Dt*(Ntt/Kl) A (1/n); 

469 Lbb=Ds-Dotl; 

470 Dctl=Dotl-Dt; 

471 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

472 Rbs=Lbc/Ds; 

473 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/ (2*pi); 

474 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

475 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

476 Swt=Ntt*Ftw*pi/4*Dt A 2; 

477 Sw=Swg-Swt; 

478 Ntcc=Ds/Lpp*(1-2*(Bc/100) ) ; 

479 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

480 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

481 Ret=ROt*vt*Dti/MUt ; 

482 if Ret<=2100 

483 ac=0.35; 


205 



TACminimo.m 


ANEXO. CODIGO DE LAS APLICACIONES DE MATLAB 



11 of 28 


484 Kt=16; 

485 mt=-l; 

486 else if Ret>10 A 5 

487 ac=0.14; 

488 Kt=0.046; 

489 mt=-0.2; 

490 else 

491 ac=0.14; 

492 Kt=0.0791; 

493 mt=-0.25; 

494 end 

495 end 

4 96 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

497 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

498 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

499 Nb=5; 

500 Nb0=0; 

501 while abs((Nb-NbO)/Nb)>0.01 

502 Nb0=Nb; 

503 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

504 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

505 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

506 


507 syms Ltaa; 

508 Lta=1000; 

50 9 options=optimset( 'Display' , 'off' ); 

510 if Ret<=2100 

511 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

512 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l + a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)* (Ds- 
ml) A (n/3)/C6+C7) ,Lta,options); 

513 else if Ret>10000 

514 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

515 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

516 else 

517 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

518 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

i/ 

(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

520 end 

521 end 

522 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

523 Prs=Cps*MUs/(10 A 3*ks); 

524 Prt=Cpt*MUt/(10 A 3*kt); 

525 if Ret<=2100 

526 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

527 else if Ret>10000 

528 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

529 else 

530 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 
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531 end 

532 end 

533 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

534 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

535 Lts=0.l*Ds; 

536 if Lts<25 

537 Lts=25; 

538 end 

539 Ltt=Lta+2*Lts; 

540 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

541 end 

542 if Res>=2100 %turbulento 

543 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

544 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp )V 
/ ((MUs/MUsw) A -0.14 *Lpp); 

545 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

546 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

547 else%laminar 

548 Ntw=Ntt*Ftw; 

549 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2); 

550 kl=(2 6*10 A 3*Nb*Rl*MUs)/( (Nb + 1)*Ds*sqrt(Sw/Sm) )*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2) ; 

551 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

552 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)// 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

553 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

554 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

555 end 

55 6 C3=((Nb+1)/( (Nb-1) + (Li+Lo)) )*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

557 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

558 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

559 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&b- 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

560 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

561 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* i/ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

562 if TAC<TACmin 

563 TACmin=TAC; 

564 puntomin=4; 

565 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

566 end 

567 end 

568 %Rbsmin vtmax 

569 Rbs=Rbsmin; 

570 vt=vtmax; 

571 Ret=ROt*vt*Dti/MUt; %Dti en mm 

572 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

573 Ds=ml+m3*Dt*(Ntt) A (1/n); 

574 Lts=0.l*Ds; 

575 if Lts<25 

576 Lts=25; 

577 end 
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578 Dotl=Dt*(Ntt/Kl) A (1/n); 

579 Lbb=Ds-Dotl; 

580 Dctl=Dotl-Dt; 

581 anglect1=2 *acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

582 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

583 if Ret<=2100 

584 ac=0.35; 

585 Kt=16; 

586 mt=-l; 

587 else if Ret>10 A 5 

588 ac=0.14; 

589 Kt=0.046; 

590 mt=-0.2; 

591 else 

592 ac=0.14; 

593 Kt=0.0791; 

594 mt=-0.25; 

595 end 

596 end 

597 % 

5 98 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

599 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

600 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

601 Swt=Ntt*Ftw*pi/4*Dt A 2; 

602 Sw=Swg-Swt; 

603 Lbc=Rbs*Ds; 

604 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

605 vs=Ms*10 A 6/(ROs*Sm); 

606 Res=ROs*vs*De/MUs ; 

607 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

608 a=a3/(l+0.14*Res A (a4)); 

609 b=b3/(l+0.14*Res A (b4)); 

610 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

611 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

612 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

613 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

614 Nb=5; 

615 Nb0=0; 

616 while abs ( (Nb-NbO)/Nb)>0.01 

617 Nb0=Nb; 

618 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc,* 
Lpp,Lbc,Res,Nb,Sm); 

619 if Res>=2100 %turbulento 

620 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

621 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) ' : 
/((MUs/MUsw) A — 0.14*Lpp) ; 

622 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

623 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

624 else%laminar 

625 Ntw=Ntt*Ftw; 

626 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2) ; 

627 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 
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628 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

62 9 k3=( (Nb-1)*R1/(Nb + 1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1) ) )*(1-2* (Bc/100) )*(2*Rb*ROs*cp) 1^ 

( (MUs/MUsw) A -0.14 *Lpp) ; 

630 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

631 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

632 end 

633 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) 
/Ltpe)) A (2-Rp); 

634 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

635 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

636 syms Lta 

637 options=optimset( 1 Display' , 'off' ); 

638 Lta=1000; 

639 if Ret<=2100 

64 0 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* i/ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

641 Lta=fsolve (@ (Ltaa) -Ltaa* (Ds-ml) A n+C5* (Ds A (l+a2) *Rbs A (l+a2) /C4+Ltaa A (1/3) * (Ds- 
ml) A (n/3)/C6+C7), Lta,options); 

642 else if Ret>10000 

64 3 Cl0=27 * kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 

(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

644 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

645 else 

646 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

647 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3) ; 

648 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8 *(1 + iS 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

649 end 

650 end 

651 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

652 Prs=Cps*MUs/(10 A 3*ks); 

653 Prt=Cpt*MUt/(10 A 3*kt); 

654 if Ret<=2100 

655 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

656 else if Ret>10000 

657 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

658 else 

659 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

660 end 

661 end 

663 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout, Tsin, ^ 
Tsout,ROt,ROs); 

664 Ltt=Lta+2*Lts; 

665 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

666 end 

667 %coste 

668 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

669 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

670 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&L- 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

671 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

672 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
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(Ms *delPs/ROs+Mt*delPt/ROt); 

673 if TAC<TACmin 

674 TACmin=TAC; 

675 puntomin=5; 

676 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

677 end 

678 end 

679 %vsmax vtmax 

680 vt=vtmax; 

681 vs=vsmax; 

682 Ret=ROt*vt*Dti/MUt; 

683 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

684 Ds=ml+m3*Dt*(Ntt) A (1/n); 

685 Lts=0.l*Ds; 

686 if Lts<25 

687 Lts=25; 

688 end 

689 Dotl=Dt*(Ntt/Kl) A (1/n); 

690 Lbb=Ds-Dotl; 

691 Dctl=Dotl-Dt; 

692 Lbc=10 A 6*Ms/ (vs*ROs* (Lbb+Dctl/Ltpe* (Ltp-Dt) ) ) ; 

693 Rbs=Lbc/Ds; 

694 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

695 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

696 if Ret<=2100 

697 ac=0.35; 

698 Kt=l6; 

699 mt=-l; 

700 else if Ret>10 A 5 

701 ac=0.14; 

702 Kt=0.046; 

703 mt=-0.2; 

704 else 

705 ac=0.14; 

706 Kt=0.0791; 

707 mt=-0.25; 

708 end 

709 end 

710 % 

711 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

712 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

713 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

714 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

715 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

716 Swt=Ntt*Ftw*pi/4*Dt A 2; 

717 Sw=Swg-Swt; 

718 

719 Res=ROs*vs*De/MUs; 

720 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

721 a=a3/(1+0.14*Res A (a4)); 

722 b=b3/(1 + 0.14*Res A (b4) ); 

723 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 
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724 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

725 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

726 Nb=5; 

727 Nb0=0; 

728 while abs((Nb-NbO)/Nb)>0.01 

729 NbO=Nb; 

730 %CORRECTION FACTORS for heat transfer and pressure drop 

731 [ Jtot, Rb, Rs , R1 ] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

732 

733 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

734 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

735 syms Ltaa; 

736 Lta=1000; 

737 options=optimset (' Display ' , 'off' ); 

738 if Ret<=2100 

739 C6=1860*kt/Dt* (MUt/MUtw) A 0.14* (Cpt*MUt/ (kt*10 A 3) ) A (1/3) * (4*10 A 6*Mt) A (1/3) * ik' 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

740 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds - F> 
ml) A (n/3)/C6+C7),Lta,options); 

741 else if Ret>10000 

742 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*i^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

743 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

744 else 

745 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

746 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

747 Lta=fsolve (@ (Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l + a2)*Rbs A (l+a2)/C4 + 1/(C8*(l+i^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

748 end 

749 end 

750 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

751 Prs=Cps*MUs/(10 A 3*ks); 

752 Prt=Cpt*MUt/(10 A 3*kt); 

753 if Ret<=2100 

754 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

755 else if Ret>10000 

756 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

757 else 

758 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

759 end 

760 end 

761 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

762 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, 
Tsout,ROt,ROs); 

763 Ltt=Lta+2*Lts; 

764 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

765 end 

766 if Res>=2100 %turbulento 

767 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

768 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) Ef 
/((MUs/MUsw) A — 0.14*Lpp); 

769 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 
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770 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

771 else%laminar 

772 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

773 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

774 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A -0.14 *Lpp) ; 

775 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

776 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

777 end 

778 C3=((Nb+1)/((Nb-1) + (Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 

779 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

780 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

781 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&EF 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

782 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

783 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

784 if TAC<TACmin 

785 TACmin=TAC; 

786 puntomin=6; 

787 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

788 end 

789 end 

790 %vtmin vsmin 

791 vt=vtmin; 

792 vs=vsmin; 

793 Ret=ROt*vt*Dti/MUt; 

794 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

795 Ds=ml+m3*Dt*(Ntt) A (1/n); 

796 Lts=0.l*Ds; 

797 if Lts<25 

798 Lts=25; 

799 end 

800 Dotl=Dt*(Ntt/Kl) A (1/n); 

801 Lbb=Ds-Dotl; 

802 Dctl=Dotl-Dt; 

803 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

804 Rbs=Lbc/Ds; 

805 anglectl=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

806 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

807 if Ret<=2100 

808 ac=0.35; 

809 Kt=l6; 

810 mt=-l; 

811 else if Ret>10 A 5 

812 ac=0.14; 

813 Kt=0.046; 

814 mt=-0.2; 

815 else 

816 ac=0.14; 

817 Kt=0.0791; 

818 mt=-0.25; 
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819 


end 


820 end 

821 % 

822 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

823 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

82 4 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

825 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

82 6 Swg=pi/4 *Ds A 2*(angleds/3 60-sin(angleds*2*pi/360)/(2*pi)); 

827 Swt=Ntt*Ftw*pi/4*Dt A 2; 

828 Sw=Swg-Swt; 

829 Res=ROs*vs*De/MUs; 

830 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

831 a=a3/(1+0.14*Res A (a4)); 

832 b=b3/(l+0.14*Res A (b4) ); 

833 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

834 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

835 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

836 Nb=5; 

837 Nb0=0; 

838 while abs((Nb-NbO)/Nb)>0.01 

839 Nb0=Nb; 

840 %CORRECTION FACTORS for heat transfer and pressure drop 

841 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

842 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

843 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

844 syms Ltaa; 

845 Lta=1000; 

84 6 options=optimset (' Display' , 'off' ); 

847 

848 if Ret<=2100 

84 9 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3) ) A (1/3)*(4*10 A 6*Mt) A (1/3) * i/ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

850 Lta=fsolve (@ (Ltaa) -Ltaa* (Ds-ml) A n+C5* (Ds A (l+a2) *Rbs A (l+a2) /C4+Ltaa A (1/3) * (Ds- F -“ 
ml) A (n/3)/C6+C7) ,Lta,options); 

851 else if Ret>10000 

852 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

853 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

854 else 

855 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/ (kt*10 A 3)) A (1/3); 

856 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

857 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8*(l+i/ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

858 end 

859 end 

860 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

861 Prs=Cps*MUs/(10 A 3*ks); 

862 Prt=Cpt*MUt/(10 A 3*kt); 

863 if Ret<=2100 

864 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

865 else if Ret>10000 
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866 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

867 else 

868 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

869 end 

870 end 

871 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

872 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, 
Tsout,ROt,ROs); 

873 Ltt=Lta+2*Lts; 

874 Nb= (Lta-Lbc*(Li+Lo))/Lbc+1; 

875 end 

876 if Res>=2100 %turbulento 

877 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

878 Ks2=((Nb-1)/(Nb+1)*R1 +((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) T 
/((MUs/MUsw) A -0.14 *Lpp); 

879 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

880 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

881 else%laminar 

882 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

883 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

884 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/^ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

885 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

886 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

887 end 

88 8 C3=( (Nb+1)/( (Nb-1) + (Li+Lo) ) )*(Ks3*Ns*4*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 

889 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

890 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

891 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&£" 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

892 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

893 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

894 if TAC<TACmin 

895 TACmin=TAC; 

896 puntomin=7; 

897 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

898 end 

899 end 

900 %vsminDsmax 

901 vs=vsmin; 

902 Ds=Dsmax; 

903 Res=ROs*vs*De/MUs; 

904 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

905 a=a3/(1+0.14*Res A (a4)); 

906 b=b3/(1+0.14*Res A (b4)); 

907 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

908 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

909 Ntt=((Ds-ml)/(m3*Dt)) A n; 

910 Dotl=Dt*(Ntt/Kl) A (1/n); 

911 Lbb=Ds-Dotl; 

912 Dctl=Dotl-Dt; 
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913 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt))); 

914 Rbs=Lbc/Ds; 

915 anglect1=2 *acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

916 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

917 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

918 Swt=Ntt*Ftw*pi/4 *Dt A 2 ; 

919 Sw=Swg-Swt; 

920 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

921 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

922 vt=4*10 A 6*Mt*Ntp/(pi*ROt*Dti A 2*Ntt); 

923 Ret=ROt*vt*Dti/MUt; 

924 if Ret<=2100 

925 ac=0.35; 

926 Kt=l6; 

927 mt=-l; 

928 else if Ret>10 A 5 

929 ac=0.14; 

930 Kt=0.046; 

931 mt=-0.2; 

932 else 

933 ac=0.14; 

934 Kt=0.0791; 

935 mt=-0.25; 

936 end 

937 end 

93 8 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt) ) )/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

939 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

940 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

941 Nb=5; 

942 Nb0=0; 

943 while abs((Nb-NbO)/Nb)>0.01 

944 Nb0=Nb; 

945 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

946 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

947 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l + a2); 

948 syms Ltaa; 

949 Lta=1000; 

950 options=optimset (' Display' , 'off' ); 

951 if Ret<=2100 

952 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

953 Lta=fsolve (@ (Ltaa) -Ltaa* (Ds-ml) A n+C5* (Ds A (l+a2) *Rbs A (l+a2) /C4+Ltaa A (1/3) * (Ds- F; - 
ml) A (n/3)/C6+C7) ,Lta,options); 

954 else if Ret>10000 

955 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 

(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

956 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

957 else 

958 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

959 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

960 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* (1+S 
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(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

961 end 

962 end 

963 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

964 Prs=Cps*MUs/(10 A 3*ks); 

965 Prt=Cpt*MUt/(10 A 3*kt); 

966 if Ret<=2100 

967 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

968 else if Ret>10000 

969 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

970 else 

971 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

972 end 

973 end 

974 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

975 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

976 Lts=0.1 *Ds; 

977 if Lts<25 

978 Lts=25; 

979 end 

980 Ltt=Lta+2*Lts; 

981 Nb= (Lta-Lbc*(Li+Lo))/Lbc+1; 

982 end 

983 %Shell-side pressure drop, Calculo Rp y C3 

984 if Res>=2100 %turbulento 

985 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

986 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) T 
/((MUs/MUsw) A — 0.14*Lpp); 

987 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

988 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

989 else%laminar 

990 Ntw=Ntt*Ftw; 

991 Dw=4*Sw/(pi*Dt*Ntw+Ds*angleds/2); 

992 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); 

993 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

994 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp)/ 

( (MUs/MUsw) A -0.14 *Lpp) ; 

995 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

996 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

997 end 

998 C3= ( (Nb + 1)/( (Nb-1) + (Li+Lo) ) )*(Ks3*Ns*4*Ms A (2-Rp) )/(ROs*10 A -6*(Lbb + Dctl*(Ltp-Dt) ^ 
/Ltpe)) A (2-Rp); 

999 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1000 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

1001 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&C” 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

1002 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

1003 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* ^ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

1004 if TACXTACmin 

1005 TACmin=TAC; 

1006 puntomin=8; 
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save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 


1007 

1008 end 

1009 end 

1010 %VtmindelPsmax 

1011 vt=vtmin; 

1012 vs=vsmax; 

1013 Ret=ROt*vt*Dti/MUt; 

1014 Ntt=fix(((4*10 A 6*Mt*Ntp)/(pi*vt*ROt*Dti A 2)/Ntp)+1)*Ntp; 

1015 Ds=ml+m3*Dt*(Ntt) A (1/n); 

1016 Lts=0.l*Ds; 

1017 if Lts<25 

1018 Lts=25; 

1019 end 

1020 Dotl=Dt*(Ntt/Kl) A (1/n); 

1021 Lbb=Ds-Dotl; 

1022 Dctl=Dotl-Dt; 

1023 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt)) ) ; 

1024 Rbs=Lbc/Ds; 

1025 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

1026 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

1027 if Ret<=2100 

1028 ac=0. 35; 

1029 Kt=l6; 

1030 mt=-l; 

1031 else if Ret>10 A 5 
ac=0.14; 

Kt=0.04 6; 
mt=-0.2; 
else 
ac=0.14; 

Kt=0.0791; 
mt=-0.25; 
end 


1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 end 

1041 % 

1042 Ntcw=0.8/Lpp*(Ds*(Be/100)); 

1043 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

1044 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

1045 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

104 6 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

1047 Swt=Ntt*Ftw*pi/4*Dt A 2; 

1048 Sw=Swg-Swt; 

1049 

1050 Res=ROs*vs*De/MUs; 

1051 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoefl); 

1052 a=a3/(1+0.14*Res A (a4)); 

1053 b=b3/(1+0.14*Res A (b4)); 

1054 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

1055 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

1056 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

1057 

1058 Nb=5; 
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1059 Nb0=0; 

1060 while abs((Nb-NbO)/Nb)>0.01 

1061 Nb0=Nb; 

1062 %CORRECTION FACTORS for heat transfer and pressure drop 

1063 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

1064 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

1065 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

1066 syms Ltaa; 

1067 Lta=1000; 

1068 options=optimset( 'Display' , 'off' ); 

1069 if Ret<=2100 

107 0 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

1071 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7) ,Lta,options); 

1072 else if Ret>10000 

1073 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0.8*^ 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

1074 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

1075 else 

1076 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

1077 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

1078 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* (1+S 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

1079 end 

1080 end 

1081 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

1082 Prs=Cps*MUs/(10 A 3*ks); 

1083 Prt=Cpt*MUt/(10 A 3*kt); 

1084 if Ret<=2100 

1085 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

1086 else if Ret>10000 

1087 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

1088 else 

1089 ht=ll6*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

1090 end 

1091 end 

1092 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

1093 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin, 
Tsout,ROt,ROs); 

1094 Ltt=Lta+2*Lts; 

1095 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

1096 end 

1097 if Res>=2100 %turbulento 

1098 Ks1=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

1099 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) ' : 
/((MUs/MUsw) A — 0.14*Lpp) ; 

1100 Rp=-b2/(Ks1/(Ks2*vs A b2)+1); 

1101 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

1102 else%laminar 

1103 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

1104 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 
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1105 k3 =( (Nb-1)*R1/(Nb + 1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb + 1) ) )* (1-2* (Bc/100) )*(2*Rb*ROs*cp) 
( (MUs/MUsw) A — 0.14 *Lpp); 

1106 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

1107 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

1108 end 

1109 C3=((Nb+1)/((Nb-1) + (Li+Lo)) )*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt) 
/Ltpe)) A (2-Rp); 

1110 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1111 if delPs>delPsmax 

1112 while delPs>delPsmax 

1113 vs=vs-0.003; 

1114 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

1115 Rbs=Lbc/Ds; 

1116 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

1117 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

1118 if Ret<=2100 

1119 ac=0.35; 

1120 Kt=l6; 

1121 mt=-l; 

1122 else if Ret>10 A 5 
ac=0. 14; 

Kt=0.046; 
mt=-0.2; 
else 
ac=0.14; 

Kt=0.0791; 
mt=-0.25; 
end 


1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 end 

1132 % 

1133 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

1134 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

1135 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* i/ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

1136 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

1137 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

1138 Swt=Ntt*Ftw*pi/4*Dt A 2; 

1139 Sw=Swg-Swt; 

1140 

1141 Res=ROs*vs*De/MUs ; 

1142 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

1143 a=a3/(1+0.14*Res A (a4)); 

1144 b=b3/(1+0.14*Res A (b4)); 

1145 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

1146 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

1147 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

1148 Nb=5;Nb0=0; 

1149 while abs((Nb-NbO)/Nb)>0.01 

1150 Nb0=Nb; 

1151 %CORRECTION FACTORS for heat transfer and pressure drop 

1152 [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

1153 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 
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1154 C4=Ks4 *(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

1155 syms Ltaa; 

1156 Lta=1000; 

1157 options=optimset (' Display',' off'); 

1158 if Ret<=2100 

1159 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* i/ 
(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

1160 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7),Lta,options); 

1161 else if Ret>10000 

1162 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8 * 1 / 
(m3*Dt) A (0. 8 *n)*Ntp A 0. 8 /(pi*Dti*MUt) A 0. 8 ; 

1163 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0. 8 *n)/C10+C7)/(Ds-ml) A n; 

1164 else 

1165 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3); 

1166 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3) ; 

1167 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C 8 * (1+^ 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

1168 end 

1169 end 

1170 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

1171 Prs=Cps*MUs/(10 A 3*ks); 

1172 Prt=Cpt*MUt/(10 A 3*kt); 

1173 if Ret<=2100 

1174 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

1175 else if Ret>10000 

1176 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

1177 else 

1178 ht=l16*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

1179 end 

1180 end 

1181 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

1182 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

1183 Ltt=Lta+2*Lts; 

1184 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

1185 end 

1186 if Res>=2100 %turbulento 

1187 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds) ; 

1188 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) ? 
/((MUs/MUsw) A -0.14 *Lpp) ; 

1189 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

1190 Ks3=Ksl*vs A Rp+Ks2*vs A (Rp+b2); 

1191 else%laminar 

1192 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

1193 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

1194 k3=((Nb-1)*R1/(Nb+1)+(Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp )/ 

( (MUs/MUsw) A — 0.14 *Lpp) ; 

1195 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

1196 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; %B15 no seguro si es exponente!!! 

1197 end 

1198 C3=((Nb+1)/((Nb-1) + (Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A - 6 *(Lbb+Dctl*(Ltp-Dt) i/ 
/Ltpe)) A (2-Rp); 
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1199 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1200 end 

1201 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

1202 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&U 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

1203 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

1204 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* i/ 
(Ms*delPs/ROs+Mt*delPt/ROt); 

1205 if TACCTACmin 
TACmin=TAC; 
puntomin=9; 

save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 


1206 

1207 

1208 

1209 end 

1210 end 

1211 else 

1212 while delPs<delPsmax 

1213 vs=vs+0.003; 

1214 Lbc=10 A 6*Ms/(vs*ROs*(Lbb+Dctl/Ltpe*(Ltp-Dt) ) ) ; 

1215 Rbs=Lbc/Ds; 

1216 anglect1=2*acos((Ds/Dctl)*(l-2*Bc/100))*360/(2*pi); 

1217 Ftw= anglectl/360-sin(anglectl*2*pi/360)/(2*pi); 

1218 if Ret<=2100 

1219 ac=0. 35; 

1220 Kt=l6; 

1221 mt=-l; 

1222 else if Ret>10 A 5 
ac=0.14; 

Kt=0.046; 
mt=-0.2; 
else 
ac=0.14; 

Kt=0.0791; 
mt=-0.25; 
end 


1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 end 

1232 % 

1233 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

1234 Ntcc=Ds/Lpp*(1-2*(Bc/100)); 

1235 Cl=(2*Kt*Ntp A (3+mt)*Ns*(4*10 A 6*Mt) A (2+mt)*(m3*Dt) A (n*(2+mt)))/(ROt*MUt A mt* ^ 
(MUt/MUtw) A (ac)*pi A (2+mt)*Dti A (5+mt)); 

1236 C2=l.25*Ntp A 3*Ns*(4*10 A 6*Mt) A 2*(m3*Dt) A (2*n)/(ROt*pi A 2*Dti A 4); 

1237 Swg=pi/4*Ds A 2*(angleds/360-sin(angleds*2*pi/360)/(2*pi)); 

1238 Swt=Ntt*Ftw*pi/4*Dt A 2; 

1239 Sw=Swg-Swt; 

1240 

1241 Res=ROs*vs*De/MUs; 

1242 [al,a2,a3,a4,bl,b2,b3,b4]=parametrostablal(Res,layout(2),tablacoef1); 

1243 a=a3/(1+0.14*Res A (a4)); 

1244 b=b3/(1+0.14*Res A (b4)); 

1245 ch=al*(1.33*Dt/Ltp) A (a)*(ROs*Dt/MUs) A (a2); 

1246 cp=bl*(1.33*Dt/Ltp) A (b)*(ROs*Dt/MUs) A (b2); 

1247 Sm=Lbc*(Lbb+Dctl/Ltpe*(Ltp-Dt)); 

1248 Nb=5;Nb0=0; 
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1249 while abs((Nb-NbO)/Nb)>0.01 

1250 NbO=Nb; 

1251 %CORRECTION FACTORS for heat transfer and pressure drop 

1252 [Jtot,Rb,Rs,Rl] = correctionfactors(Ftw,Dctl,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc ,^ 
Lpp,Lbc,Res,Nb,Sm); 

1253 Ks4=ch*(MUs/MUsw) A 0.14*Prs A (-2/3)*ROs*Cps*Jtot; 

1254 C4=Ks4*(10 A 6*Ms/ROs) A (l+a2)*(Lbb+Dctl*(Ltp-Dt)/Ltpe) A -(l+a2); 

1255 syms Ltaa; 

1256 Lta=1000; 

1257 options=optimset( 'Display' , 1 off' ); 

1258 if Ret<=2100 

125 9 C6=1860*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (1/3)*(4*10 A 6*Mt) A (1/3)* ^ 

(m3*Dt) A (n/3)/(pi*MUt) A (1/3); 

1260 Lta=fsolve(@(Ltaa) -Ltaa*(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+Ltaa A (1/3)*(Ds- 
ml) A (n/3)/C6+C7) ,Lta,options); 

1261 else if Ret>10000 

1262 C10=27*kt/Dt*(Cpt*MUt/(10 A 3*kt)) A (l/3)*(MUt/MUtw) A 0.14*(4*10 A 6*Mt) A 0. 8*S 
(m3*Dt) A (0.8*n)*Ntp A 0.8/(pi*Dti*MUt) A 0.8; 

1263 Lta=C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+(Ds-ml) A (0.8*n)/C10+C7)/(Ds-ml) A n; 

1264 else 

1265 C8=0.116*kt/Dt*(MUt/MUtw) A 0.14*(Cpt*MUt/(kt*10 A 3)) A (l/3); 

1266 C9=(4*10 A 6*Mt) A (2/3)*(m3*Dt) A (2*n/3)/(pi*MUt*Dti) A (2/3); 

1267 Lta=fsolve(@(Ltaa) -Ltaa/(Ds-ml) A n+C5*(Ds A (l+a2)*Rbs A (l+a2)/C4+1/(C8* (l+*f 
(Dti/Ltaa) A (2/3))*(C9/(Ds-ml) A (2*n/3)-125)+C7)),Lta,options); 

1268 end 

1269 end 

1270 hs=C4/(Rbs A (l+a2)*Ds A (l+a2)); 

1271 Prs=Cps*MUs/(10 A 3*ks); 

1272 Prt=Cpt*MUt/(10 A 3*kt); 

1273 if Ret<=2100 

1274 ht=1860*kt/Dti*(Ret*Prt*Dti/Lta) A (1/3)*(MUt/MUtw) A (0.14); 

1275 else if Ret>10000 

1276 ht=27*kt/Dti*Ret A 0.8*Prt A (1/3)*(MUt/MUtw) A (0.14); 

1277 else 

1278 ht=116*(Ret A (2/3)-125)*Prt A (1/3)*(1+Dti/Lta) A (2/3)*(MUt/MUtw) A (0.14); 

1279 end 

1280 end 

1281 Tw=Ttav+(Tsav-Ttav)/(1+ht/hs); 

1282 [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout,Tsin ,^ 
Tsout,ROt,ROs); 

1283 Ltt=Lta+2*Lts; 

1284 Nb=(Lta-Lbc*(Li+Lo))/Lbc+1; 

1285 end 

1286 if Res>=2100 %turbulento 

1287 Ksl=(Sm/Sw)*((1+0.3*Ntcw)*Rl*Nb*ROs)/((Nb+1)*Ds); 

1288 Ks2=((Nb-1)/(Nb+1)*R1+((Ntcc+Ntcw)/(Ntcc*(Nb+1))*Rs))*(1-2*(Bc/100))*(2*Rb*ROs*cp) ' : 
/((MUs/MUsw) A — 0.14*Lpp) ; 

1289 Rp=-b2/(Ksl/(Ks2*vs A b2)+1); 

1290 Ks3=Ks1*vs A Rp+Ks2*vs A (Rp+b2); 

1291 else%laminar 

1292 kl=(26*10 A 3*Nb*Rl*MUs)/((Nb+1)*Ds*sqrt(Sw/Sm))*(Ntcw/(Ltp-Dt)+Lbc/Dw A 2); %que es Dw 

1293 k2=Nb*Rl*ROs/((Nb+1)*Ds)*(Sm/Sw); 

1294 k3=((Nb-1)*R1/(Nb+1) + (Ntcc+Ntcw)*Rs/(Ntcc*(Nb+1)))*(1-2*(Bc/100))*(2*Rb*ROs*cp) /^ 
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( (MUs/MUsw) A — 0.14 *Lpp) ; 

1295 Rp=2-(kl+2*k2*vs+k3*(2+b2)*vs A (l+b2))/(kl+k2*vs+k3*vs A (l+b2)); 

1296 Ks3=(kl*vs A -l+k2+k3*vs A b2)*vs A Rp; 

1297 end 

1298 C3=((Nb+1)/((Nb-1)+(Li+Lo)))*(Ks3*Ns*4*Ms A (2-Rp))/(ROs*10 A -6*(Lbb+Dctl*(Ltp-Dt)^ 
/Ltpe)) A (2-Rp); 

1299 delPs=C3*Lta/(Rbs A (3-Rp)*Ds A (2-Rp)); 

1300 end 

1301 delPt=Cl*Ltt/(Ds-ml) A (n*(2+mt))+C2/(Ds-ml) A (2*n); 

1302 if (Ltt<=Lmax && Ds<=Dsmax && vt<=vtmax && vt>=vtmin && vs<=vsmax && vs>=vsmin &&b 
Rbs<=Rbsmax && Rbs>=Rbsmin && delPt<=delPtmax && delPs<=delPsmax) 

1303 A=pi*Dt*Lta*Ntt*Ns*10 A -6; 

1304 TAC=Af*(Ca+Cb*A A c+Ce+Cf*(Ms*delPs/ROs) A g+Ce+Cf*(Mt*delPt/ROt) A g)+Cpow*H/rend* / 
(Ms*delPs/ROs+Mt*delPt/ROt); 

1305 if TAC<TACmin 

1306 TACmin=TAC; 

1307 puntomin=9; 

1308 save valorpunto.mat delPt delPs A TAC Ltt Ds Rbs vs vt 

1309 end 

1310 end 

1311 end 

1312 punto=puntomin; 

1313 save punto.mat punto 
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1 function [Jtot,Rb,Rs,R1] = correctionfactors(Ftw,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt ,k 
N tcc,Lpp,Lbc,Res,Nb,Sm) 

2 %CORRECTION FACTORS for heat transfer and pressure drop 

3 %inputs(Ftw,Lbb,angleds,Dt,Be,Ds,Dotl,Ntt,Ntcc,Lpp,Lbc,Res,Nb,Sm) 

4 %SALIDAS 

5 %factores de correccion Jtot=Jc*Jl*Jb*Js*Jr y Rl,Rb,Rs 

6 %Baffle Window Flow 

7 Fc=l-2 *Ftw; 

8 Jc=0.55+0.72*Fc; 

9 %Baffle Leakage (Kuppan Thulukkanam) 

10 Lsb=0.8+0.002*Ds+0.75; 

11 Ssb=Ds*Lsb*(pi-0.5*angleds*pi/180) ; 

12 if Dt<=31.75 

13 if 2*Lbc<914.4 

14 Ltb=0.4; 

15 else 

16 Ltb=0.2; 

17 end 

18 else 

19 Ltb=0.4; 

20 end 

21 

22 Stb=0.5*pi*Dt*Ltb*Ntt*(1+Fc); 

23 rs=Ssb/(Ssb+Stb); 

24 rl=(Ssb+Stb)/Sm; 

25 J1=0.44*(1-rs)+(1-0.44*(1-rs))*exp(-2.2*rl); 

26 p=0.8-0.15*(1+rs); 

27 Rl=exp(-1.33*(1+rs)*rl A p); 

28 %Bundle Bypass Flow 

29 if Lbb>30 

30 Nss=Ntcc/6; %Ntcc/6<=Nss<=Ntcc/4 

31 else 

32 Nss=0; 

33 end 

34 rss=Nss/(2*Ntcc); 

35 if Res<100 

36 Cj=l.35; 

37 Cr=4.5; 

38 else 

39 Cj=l.25; 

40 Cr=3.7; 

41 end 

42 if rss<0.5 

43 Sb=Lbc*(Ds-Dotl); 

44 Jb=exp(-Cj*(Sb/Sm)*(1-(2*rss) A (1/3))); 

45 Rb=exp(-Cr*(Sb/Sm)*(1-(2*rss) A (1/3))); 

46 else 

47 Jb=l; 

48 Rb=l; 

4 9 end 

50 %Unequal Baffle Spacing 

51 if Res >= 100 

52 nl=0.6; 
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53 n2=0.2; 

54 else 

55 nl=l/3; 

56 n2=l; 

57 end 

58 Lbi=Lbc; 

59 Lbo=Lbc; 

60 Js= ( (Nb-1) + (Lbi/Lbc) A (1-nl) + (Lbo/Lbc) A (1—n 1) ) / ( (Nb-1) + (Lbi/Lbc) + (Lbo/Lbc) ) ; 

61 Rs=0.5*((Lbc/Lbi) A (2-n2)+(Lbc/Lbo) A (2-n2)); 

62 %Laminar Flow 

63 Ntcw=0.8/Lpp*(Ds*(Bc/100)); 

64 Nct=(Nb+1)*(Ntcc+Ntcw); 

65 if Res<=20 

66 Jr=(10/Nct) A 0.18; 

67 else if Res>=100 

68 Jr=l; 

69 else %interpol 

70 Jr=(Res*(1-(10/Nct) A 0.18))/(100-20); 

71 end 

72 end 

73 Jtot=Jc*Jl*Jb*Js*Jr; 

7 4 end 
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1 function [MUt,MUs,MUtw,MUsw] = viscosidades(MUtin,MUsin,MUtout,MUsout,Tw,Ttin,Ttout, 
Tsin,Tsout,ROt,ROs) 

2 %Obtencion de las viscosidades a la temperatura de la pared del tubo, Tw, a 

3 %partir de las viscosidades a la temperatura de entrada y de salida 

4 %paso de cP a cSt (viscosidad cinematica) 

5 vtin=MUtin*10 A 3/R0t; 

6 vtout=MUtout*10 A 3/ROt; 

7 vsin=MUsin*10 A 3/ROs; 

8 vsout=MUsout*10 A 3/ROs; 

9 %loglO(loglO(v+0.7))=A-B*logl0(T) 

10 %constantes para los dos fluidos 

11 Bt=(loglO(loglO(vtout+0.7))-loglO(loglO(vtin+0.7)))/(loglO(Ttin)-loglO(Ttout)); 

12 At=logl0(loglO(vtin+0.7))+Bt*loglO(Ttin); 

13 Bs=(logl0(logl0(vsout+0.7))-logl0(logl0(vsin+0.7)))/(loglO(Tsin)-loglO(Tsout)); 

14 As=logl0(logl0(vsin+0.7))+Bs*logl0(Tsin); 

15 Tt=(Ttin+Ttout)/2; 

16 Ts=(Tsin+Tsout)/2 ; 

17 vt=10 A (10 A (At-Bt*logl0(Tt)))-0.7; 

18 vs=10 A (10 A (As-Bs*logl0(Ts)))-0.7; 

19 vtw=l0 A (10 A (At-Bt*loglO(Tw)))-0.7; 

20 vsw=10 A (10 A (As-Bs*loglO(Tw)))-0.7; 

21 MUt=real(vt*ROt*10 A -3); 

22 MUtw=real(vtw*ROt*10 A -3); 

23 MUs=real(vs*ROs*10 A -3); 

24 MUsw=real(vsw*ROs*10 A -3); 

25 end 
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1 function [ml m2] = parametrosm(tablacoefm,bundletype) 

2 %obtiene los parametros ml y m2 en funcion de bundletype 

3 % bundletype contiene la forma del intercambiador siendo: 

4 %fixed or U-tube=l,outside packing=2,split-ring=3,pull-through=4 

5 ml=tablacoefm(bundletype,1); 

6 m2=tablacoefm(bundletype,2); 

7 end 
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1 function [al,a2,a3,a4,bl,b2,b3,b4] = parametrostablal(Res,angle,tablacoefl) 

2 %Obtiene los parametros de al, a2, a3, a4, bl, b2, b3 y b4 en funcion del 

3 %Res(shell Reynolds) y el layout angle 

4 if Res>=10 A 4 

5 i=l; 

6 else if Res>=10 A 3 

7 i=2 ; 

8 else if Res>=10 A 2 

9 i=3 ; 

10 else if Res>10 

11 i=4; 

12 else 

13 i=5; 

14 end 

15 end 

16 end 

17 end 

18 p=tablacoefl(5*(angle-1)+i,:); 

19 al=p (1) ; 

20 a2=p (2) ; 

21 a3=p (3) ; 

22 a4=p (4) ; 

23 bl=p (5); 

24 b2=p(6); 

25 b3=p (7); 

2 6 b4=p (8); 

27 end 


Of 1 
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1 function [Kl,n] = parametrostabla2(layout,tablacoef2,Ntp) 

2 %obtiene los parametros K1 y n en funcion del numero de pasos y el layout 

3 %de los tubos 

4 Kl=tablacoef2(fix(Ntp/2)+l,layout(1) ) ; 

5 n=tablacoef2(fix(Ntp/2)+1,layout(1)+2); 

6 end 



1 Of 1 
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GLOSARIO DE TERMINOS 

p viscosidad del fluido, cP 

|i w viscosidad del fluido a la temperatura de la pared, cP 
A area de intercambio de calor, m 2 

a, ai, a2Constantes para el calculo de j S iy fsi 

A, B parametros para el calculo de la viscosidad cinematica en funcion de la 
temperatura 

ac parametro para el calculo de Ci 
Af factor de anualizacion del coste inicial, ano 1 

b, bi, b 2 constantes para el calculo de c p 

Be corte del deflector en porcentaje del diametro de la carcasa 
c constante exponencial para el coste de adquisicion del intercambiador 
Ci, C 2 parametros para el calculo de AP t 
C 10 parametro para el calculo de la ecuacion (5.3.1c) 

C3 parametro para el calculo de AP S 

C 4 parametro para el calculo de h s 

C5, C7 parametros para el calculo de las ecuaciones (5.3.1) 

C 6 parametro para el calculo de la ecuacion (5.3.1a) 

Cg, Cg parametros para el calculo de la ecuacion (5.3.1b) 

C a , Cb constantes para el calculo del coste de adquisicion del intercambiador, $ 

C e , Cf constantes para el calculo del coste de adquisicion de las bombas, $ 

Ch parametro para el calculo de Ks 4 
Cj, Cr parametros para el calculo de Jb y Rb 
c p parametro para el calculo de Ks 2 
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c p ,s capacidad calorffica del fluido, J/kg K 

Cpow coste energetico, $/Wh 

D, D t diametro exterior de los tubos, mm 

Dcti diametro de la circunferencia que pasa por los centros de los tubos exteriores 
del haz de tubos, mm 

Doti diametro de la circunferencia que circunscribe el haz de tubos, mm 
D s diametro interior de la carcasa, mm 
Dti diametro interior de los tubos, mm 

D w diametro hidraulico equivalente para ventana de deflector segmentado, mm 
F factor de correccion de la temperatura media logaritmica 
f factor de friccion 

F c fraccion de tubos que se encuentran en flujo perpendicular 
fsi factor de friccion en la carcasa para un haz de tubos ideal 
F w fraccion de tubos que atraviesan la ventana del deflector 
g constante exponencial para el coste de adquisicion de las bombas 
FI tiempo de funcionamiento anual, h/ano 

h coeficiente de conveccion del fluido, W/m 2 K 

hsi coeficiente de conveccion del fluido de la carcasa en un haz de tubos ideal, 
W/m 2 k 

Jb factor de correccion del flujo entre el haz de tubos y la carcasa para la 
transferencia de calor 

J c factor de correccion de flujo por la ventana de los deflectores para la 
transferencia de calor 

Ji factor de correccion de las fugas en los deflectores para la transferencia de calor 

J r factor de correccion de flujo laminar para la transferencia de calor 
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J s factor de correccion de la separacion desigual de los deflectores para la 
transferencia de calor 

jsi coeficiente termico para el calculo de h S i 

Jtot producto de todos los factores de correccion para la transferencia de calor 

Ki, n constantes de la ecuacion de Sinnott 

ki',k2',k3' parametros para el calculo de Ks3 

Ksi,Ks 2 parametros para el calculo de Ks 3 

Ks 3 parametro para el calculo de C3 

Ks 4 parametro para el calculo de C4 

k w conductividad termica de los tubos, W/m l< 

Lbb holgura entre el haz de tubos y la carcasa, mm 
Lbc separacion entre los deflectores centrales, mm 
Lbi separacion del deflector de entrada, mm 

Lbo separacion del deflector de salida, mm 

U relacion entre la separacion de los deflectores a la entrada y la separacion entre 

los centrales 

LMTD diferencia de temperatura media logaritmica, 

L 0 relacion entre la separacion de los deflectores a la salida y la separacion entre los 
centrales 

L pp separacion de los tubos en la direccion paralela al flujo, mm 

L ta longitud de los tubos en la que se produce transferencia de calor, mm 

L tp separacion de los tubos, tube pitch, mm 

L tp ,eff separacion de los tubos respecto a la direccion de la corriente, mm 
L ts espesor de la placa de tubos, mm 
L tt longitud total de los tubos, mm 
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m, M flujo masico, kg/s 

mi, m2, m3 constantes para el calculo del numero de tubos 
mt, K t parametros para el calculo del factor de friccion 
Nb numero de deflectores 

Net numero de filas de tubos cruzadas en todo el intercambiador 

N s numero de pasos por la carcasa 

Nss numero de pares de tiras de sellado, sealing strips 

N t , N tt numero de tubos 

Nice numero de filas de tubos en flujo perpendicular real en una seccion 

Ntcw numero de filas de tubos en la ventana del deflector 

N tp numero de pasos por los tubos 

N tw numero de tubos que atraviesan la ventana del deflector 
p parametro para el calculo de Ri 

Pr numero de Prandtl 

Q. potencia termica del intercambiador, W 

Rb factor de correccion del flujo entre el haz de tubos y la carcasa para la perdida 

de carga 

Rbs relacion entre la separacion de los deflectores centrales y el diametro de la 
carcasa 

Re numero de Reynolds del fluido 

Rf factor de ensuciamiento, fouling, m 2 ^C/W 

Ri factor de correccion de las fugas en los deflectores para la perdida de carga 

n, r s relaciones de areas utilizadas para el calculo de Riy Ji 
R p parametro para el calculo de Ks3 
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R s factor de correccion de la separacion desigual de los deflectores para la perdida 
de carga 

r ss relacion entre el numero de pares de tiras de sellado y el numero de filas de 
tubos en flujo perpendicular 

Sb area entre la carcasa y el haz de tubos 

S m area minima de paso existente entre dos deflectores consecutivos, en la que el 
flujo es perpendicular a los tubos 

Ssb area entre la carcasa y los deflectores, m 2 

Stb area entre los tubos y los deflectores, m 2 

S w area de paso neta en la ventana del deflector, m 2 

S wg area de la ventana del deflector, m 2 

Swt area de la ventana del deflector ocupada por los tubos, m 2 

T av temperatura media del fluido, 

T w temperatura de la pared de los tubos, 

v velocidad del fluido, m/s 

v s * velocidad de partida del fluido en la carcasa, m/s 

APbi perdida de carga en el flujo perpendicular en un haz de tubos ideal. Pa 

AP S perdida de carga en la carcasa. Pa 

AP t perdida de carga en los tubos. Pa 

APwi perdida de carga en la ventana del deflector en un haz de tubos ideal. Pa 
6 S b holgura entre la carcasa y el deflector, mm 
6tb holgura entre los tubos y el deflector, mm 
q rendimiento de las bombas 

0 c ti angulo subtendido por el corte de deflector y el diametro que atraviesa los 
centros de los tubos mas externos del haz de tubos, deg. 
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